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本 書 の 特徴 


骨 市 販 さ れ て いる ほとん どの 機種 に 利用 で 
きる よう , 操作 法 な ど 初 歩か ら て いね い に 
述べ , 機種 ご と の BASIC の 異同 も 解説 き 
れれ て いま すず 





骨 学習 ・ 記 憶 ・ 検 索 等 に 便利 な よう 各 項 が . 
見 や すい ペー ジ 単 位 で 構成 きれ て いま す . 


財 通常 の パソ コン 利用 領域 に お ける 主要 事 
項 の 学習 に は この 1 冊 で 問 に 合う よう) 配慮 
され て いま す . (特に , 図形 出力 , 文字 列 
処理 数 値 計算 等 を 詳説 .) 





く < ノバ パソ コン ライ プラ リ > 
① 基本 BASIC と その 応用 


戸川 隼人 著 1700 円 
各種 パソ コン 用 
② 拡張 BASIC と その 応用 
戸川 隼人 著 1700 円 
3 228BASIC 詳 説 
木下 和 著 近 判 
(以下 続 刊 ) 
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PASCAL プ ログ ラミ ング 
米田 信夫 ・ 正 田 輝雄 共著 1600 円 
主要 目次 PASCAL プロ グラ ム ( 計算機 と プログ 
フ ム 。 文字 セッ ト 他 ) 特殊 記号 、 名 前 , 数 , 文 
字 列 プロ グラ ム の 構造 基本 的 な デー タ と 式 

(論理 値 。 整数 他 ) 文 (代入 文 , 複合 文 、 条件 
文 他 ) 手続 き と 関数 スカ ラー と 部 分 範囲 配 
列 レコ ー ド 集合 ファ イル ポイ ンタ と 動 的 
デー タ 構 造 入出 力 (テキ スト 型 フ ァイル 他 ) 
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ま え が き 
あな た は どん な 乗物 が 好き で すか ? た と えば 
マイ カー バース 新 電線 
の 中 で は どれ が 好き で すか ? 

私 は マイ カー が 好き で す .。 マイ カー は 自分 の 思い どおり に 動い て くれ 
て 。 し か も 機動 力 が ある か ら で す . マイ カー で な けれ ば 行け な い ,。 す ば 
らし い 観 光 地 が た くさ ん あり ます 。. 自家 用 車 を も っ て いな けれ ば で き な 
ぃ 仕事 も た くさ ん あり ます .。 また だ た, クル マ そ れ 自 体 も 非常 に 魅力 的 で す . 
数 ある 工業 製品 の 中 で , 最も デザ イン が 良く 。 コス ト ・ パ フォ ー マ ン ス 
の 良い も の の 一 つ です . 

それ と 同じ 理由 で 。 私 は パソ コン (ニニ マイ コン ) が 好き で す .。 パソ コ 
ン は 自分 の 思い どおり に 動い て くれ て , し か も , も の すご い 潜 在 的 能力 
を も っ て いま す .。 パソ コン を 使え ば 。 すばらし いこ と が で きま す 一 一 趣 
味 の 上 で も , 仕事 の 上 で も , 勉強 の 上 で も , …… 。 

パソ コン を 単なる 「 計 算 の 道具 ] だ と 思っ て は いけ ませ ん . パソ コン 
は 文字 情報 を 処理 する 道具 で す . た と えば , 自分 で 辞書 を 作れ ます (本 
書 7 章 の 例題 4 参照 )、 1 年 か け て , 個性 的 な 辞書 を 作っ て み ま せ ん か ? 
ある い は 。 統計 デー ター ファ イル を 作る の も 意義 ある 仕事 で すし , 漢字 
プリ ンタ ー を 使っ て , 自分 で 本 を 作る こと も で きま す 。 普通 は 自分 で 本 
を 作ろ うと 思っ て も , 自分 で 活字 を 組む こと は で きま せん し , 印刷 屋 さ 
ん に 頼め ば 高い か ら ,。 よほど お 金 が な いと 自費 出版 は で きま せん 。 し か 
し パソ コン を 使っ て 版 を 作り , 複写 機 (また は サー モ フ ァ ックス 。 簡易 
オフ セッ ト な ど ) で プリ ント すれ ば , 自分 の 本 を 作れ ます . 

パソ コン の 文字 列 処理 機能 を 活用 し て , プロ グラ ム を 自動 的 に 書き か 
えた り , 編集 し た り , 解析 し た りす る こと が で きま す (本 書 7 章 の 例題 
7 9 委 照 )、 自 分 で オリ ジ ナ ル な プロ グラ ミン グ 言 語 を 考え , その 処理 
系 を 作る こと も で きま す .。 パ ソコ ン の BASIC は 。 そう いう 処理 を する の 


i ま え が き 
に 。 本 当 に 便利 に で き て いま す . 

パソ コン は , ま た , 図形 を 扱う の に 便利 な 道具 で す . カ ラー・ グ ラフ ィ ッ 
ク ・ デ ィ ス プレ イ , 欠 -Y プ ロッ ター。 ライ トペ ン 。 ディ ジ タ イ ザー な 
ど 。 図形 を 扱う た め の 道 具 が そろ っ て いま すし 。 表示 され て いる 図形 を 
メモ リー に 記憶 きせ た り 再 表示 さき せ た だ た りす る ため の G 也 T@ 文 。PUT@ 
文 な ど ,。 BASIC の 図形 処理 機能 も 強力 で す . 

数 学 や 物理 で 習っ た こと を パソ コン で 数 値 的 に や っ て みた だ たり, グラ フ 
を 描い て みた りす る と , 単に 式 の 形 で 見 て いる の と 違っ て 。 具体 的 に よ 
くわ か り ま す 。. 本 書 の 表紙 は その 例 で ,。 スピ ン を か けた ボー ル の まわ り 
の 流れ で す 。 こう いう 絵 は 。 パソ コン で や れ ば 簡単 で す が , 手 計 算 で は 
と て も 大 変 で 。 普通 。 理 くつ は わか っ て いて も 。, 実際 に は な か な か 書け 
な いも の で す . 

じつは ,。 こう いう 図 は 。 普通 の コン ピュ ー タ ー で 描か せよ うと 思っ て 
も , 簡単 に は で きま せん . あな た の 学校 (また は 会 社 ) の コン ピュ ー タ ー 
で で きる か どう か 調べ て ご らん な さい 。 だ た だい て い は 不可 能 で す 。 図形 入 
出力 の 装置 が 無い か ら で す . な ぜ 無 いか と いえ ば 。 と て も 高い か ら です. 
また だ た, あっ た と し て も 。 使い 方 の わか る 人 は ほん の 少し し か いな い の で 
す 。 

パソ コン を 。 単なる 「 安 物 の コン ピュ ー タ ー」] だ と 思っ て は いけ ませ 
ん 。 安い こと は 事実 で す が 。 同時 に , これ まで に 作ら れ た いか な る コン 
ピュ ー タ ー よ り も 便利 で 使い 易い の で す . 最も 良い コン ピュ ー タ ー が 最 
も 安い の で すか ら , この 上 な く 結 構 な こと だ と 思い ます 。. 

パソ コン は 使い 易 さ の 点 で 普通 の コン ピュ ー タ ー よ り も は る か に 上 等 
で す が , 個人 で も て る と いう こと が 。 これ また 実に すばらし いこ と で す . 
昔 は , 電話 も , 自動 車 も , 風呂 も , 「 個 人 で も つの は ゼイ タク ]」 と 考え ら 
れ て お り ま し た 。 確か に ゼイ タク に は 違い あり ませ ん 。 個人 が も っ て い 
る 電話 や 自動 車 や 風呂 の 稼動 率 は ずい ぶん 低い も の で す 。 公衆 〇 つと い ぃ 
う 形 で も 問 に あい ます 。 し か し ,。 や は り ,。 自分 で も っ て いる の っ て いい 
も の で すね . 貨 が 一 つ ず つ 自 分 用 の を も つの が 理想 的 で す . 

コン ピュ ー タ ー も 。 そう で す よ 。 パソ コン に 慣 し て て し まう と 。 公衆 計 
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算 機 な ど は 使う 気 が し な く な り ま す . 冒頭 に 書い た よう に ,。 コン ピュ ー 
ター を 乗物 に た と える な ら ば ぱ 

筆算 は 徒歩 

電卓 は 自転 車 

プロ グラ ム 電 卓 は バイ ク 

パソ コン は 乗用 車 

小型 コン ピュ ー タ ー は バス 

中 型 コ ンピュータ ー は 列車 

大 型 コ ンピュータ ー は 新幹線 

スー パー・ コ ンピュータ ー は 飛行 機 
と いう こと に な る で し ょ う 。 速 さ の 点 で は 。 な ん と いっ て も スー パー・* 
コン ピュ ー タ ー が 一 番 で , また 大 量 の 事務 処理 に は 中 一 大 型 コ ン ピ ュ ー 
ター が 有利 で す が 。 私 達 の まわ り に は , そう いう 処理 能力 より も 

年 中 無休 。 24 時 間 い つ で も 使え る 

特定 用 途 に 専用 に 使え る 

文字 処理 機能 。 図形 表示 機能 が 強力 

手軽 に ファ イル (大 容量 記憶 装置 ) を 使用 で きる 

便利 な ソフ トウ ェ ア を 容易 に 入手 で きる 
な どの 方 が 重要 な 仕事 が た くさ ん あり ます 。 そう いう 仕事 に は パソ コン 
が 一 番 い い の で す . 

そう いう わけ で 。 将来 ます ます パソ コン が 発展 する こと を 願っ て , こ 
の 本 を 書き まし た . 全く の 初心 者 か ら , 研究 者 や マニ ア ま で 。 いろ いろ 
な 方 々 に お 楽し みい た だ ただ ける よう に 書い た つも り で す 。 学校 や 講習 会 で 
も 使え る よう に 配慮 し て あり ます 。 演習 問題 も た くさ ん 付け まし た .。 解 
答 は 省略 し まし た が , ほぼ 同じ 問題 の 解答 が , 本 書 の 姉妹 編 「 基 本 
BASIC と その 応用 ]」 に 出 て いま す の で , 必要 な と き に は そちら を 参照 し 
て 下さ きい 、。 

本 書 は 「 読 むための 本 」 で は あり ませ ん . パソ コン を 使っ て ,。 いろ い 
ろ や っ て みる た だ ため の 本 で す .。 パソ コン は , な る べく ご 自分 で お 買い に な 
る こと を お すす めし ます . 学校 の 実習 の 時 間 に さ わる だ け ,。 と いう 程度 


1V ま え が き 
で は 一 人 前 に な れ ま せん 。 ピア ニス ト 志 望 の 人 で 。 ピア ノ を も っ て いな 
ゅ い 人 は いま せん ね 。 1 週間 に 1 度 。 お けい この 日 だ け 先 生 の 家 で ビ ピアノ 
に さわ る 。,。 と いう だ け で は 。 と て も プロ に は な れ ま せん 。 コ ンピュータ ー 
も 同じ で す 。 昔 は , 自分 で コン ピュ ー タ ー を も っ て いる 人 な どい ませ ん 
で し た か ら , 一 一 みん な が 素人 ば か り で し た か ら , それ で も 一 人 前 と い 
うこ と に な っ て いま し た が ,。 これ か ら は そう は 行き ませ ん . 現在 , す で 
に か な り の 学生 が パソ コン を も っ て お り ,。 程度 の 高い プロ グラ ム を 書い 
て いま す . また だ 。 小学 校 に もち も パソ コン ・ ク ラブ を 作れ そう な くら い 普 及 し 
て き て お り ま す . そう いう 子供 達 に 負け な いよ うに , ひと つ 。 が ん ば っ 
て 勉強 し て 下さ い . 


1982 年 6 月 
戸 川 隼 人 


機器 構成 

1 1 CPU 1 ドド ドド ーー ドー ドド ドド ・ に トト トト トト トト トト トレ トト レレレ トト レト トト ュー て ここ て ] 
1.2 本 体 ドド ドド に ドー ドー ドド ドド ドド ドド トト トト トレ トト トレ トト レレレ ーーー 2 
1. 3 ディ スプ アレ イード ドド ドド トド トト トト トト レレレ トト トト トト トー トト ーー 3 
1. 4 カセ ッ ト ・ テ ー ブ プリ ドー ドー ドド ドド ・ ド ドド に トト トト トト トト トト トト レー トーーー 6 
1. 5 フロッピー・ デ ィ ス クー ドー ドー ドー ドド ドド ドド トト トト トト トト トー バー バー 8 
1 6 プリ ンタ ーー ドー ドド ドド ドド トー トト トト トー トト トー トー トト トー トー トト ーーーー 10 
1.。 7 その他 ーー ドド ドド ドド ドド トト トト に トト トト トレ に トレ レト レト バー て ーー 12 
操 法 

2. 1 電源 ON ・・- に ーー ドド ーー ドド トド トト < トト トト トト トト トト トト レー トー トーーー 15 
2.。 2 BASIC の 起動 ーー ドド ドド ドド ドド ドド ドド ドド ト ト ーーーーーーーーー 16 
2. 3 キー ボー ドー バー ドド ドド に トト トッ トト トト トト トト トト トト トト トト こ て ここ て 18 
2. 4 プロ グラ ム の 入力 ーー バー バー ドド ドド トト トト トッ ーー バー 20 
2 5 スク リー ン ・ エ ディ ター ーー トーー ド トド トー トド トート トト トー バー バー 22 
2. 6 実行 の 開始 。 中 断 。 再開 トド t バ ドー ニー バトー トド ポピーー ド ーー ドー 26 


BASIC 入門 一 一 簡単 な 計算 と 入出 力 


の PO PO PP 2 の 


の の お OO D ト 5 


BASIC と は 1 ドド ド ドド ・ ド トー トト トー トト トト トー トー トーーー 27 
命令 と プロ グラ ム ドー ドー ドド ーー ドー トー ドー ドーーー 28 
TNPUF 文 ーーー ドド ドド ドド ドド ドー トーーー 30 
代入 文 (L 邑 PT 文 ) ーー ドド ドド ドド ドー ドド ーー ドー ドー 32 
変数 名 ドド ドー ドド ドド ドド トト トト ーー 33 
式 の 書き 方 ーー ドド ドド ドー ドー ドド ドー トド ーー 24 


V1 


3。 
3. 
3。 9* 
3. 
3. 
3. 
3。 


制御 


こと た た や と た た も や や と た お あと あ た や や お あま 


7 
8 


10 
11 
12 
13 


(O OO へ ^ ヽ J の の お OO トト 5 


mm mm 下っ 王 己 叶 
の - 員 OO NO 王 の 


組込み 関数 "上 ーー ド ドド ドド ドド ドド ドド ドー 35 
PRTIRNT 文 て ドー ドド ドド ドー ドド ドド ドド トト トト トト トト トト トト トト レト トト ーー 36 
PRTNT USBTNG と 呈 AB 1 ドド ーー ドー ドー ドー 38 
RERAD 文 と DATA 文 ビーー ド ーー ドー ドド トド トト トト トー バー 40 
REBM 。 STOP 。 BND ーー ドー ドー ドド ドド に ドド に ド に < トト トーーー バ ー 41 
文法 細則 上 ーーー トー ドー ドド トト トト トト トレ トト トト トト トト トト トド トー 42 
例題 お よび 演習 上 ーー バ ーー ドド ドド トト トト トト トー 44 


和 差 積 商 円 の 面積 


文 一 枝分かれ と くり か え し 
概 47 
GOTO 文 と ラベ ルー ドー ドド ーー ドー ドド トト トト トト トト トト レト トト レト ーー 48 
GOSU 纏 RERRTTURITN ーーーーーーーーーーーーーーー ト ドー トー トー バー 49 
TE 文 に よる 分 岐 ドー ドド ーー ドー ドー ドド トト ドド トト トト トト トト トト ーー バー 50 
条件 式 の 書き 方 ドトール ぃ トバ の ム ー ソ ブー ドド トト に レー 51 
直文 に よる 場合 分 け 処理 に ドド トド よー ドー ドー ドー 52 
ON GOTO。 QR GOSUB ドー トド ーーーーー 53 
FOR- ン NEX 生 ド ドー ドー に に ドー に ーー トー トト トー に トト トト トー トー トト ーーーーー・ 54 
REPEAT- ン UNT TT エ ュー ドー トー ドー トト トト トト トーーー 56 
WHT TE-ーWEND ーーーー ド ーー トド トト トト トト トト トー ニーー 57 
SWAP ーー 58 
配列 ドド ドド ドド に ドド トド トト トト トト トト トト トト トト トト トト トト トト トト トト ここ ここ 59 
添字 付き 変数 ドド トド ーーー ドー ドド トト トト トト トト トト トッ レー レー バー 60 
配列 の 宣言 と 解除 ・ 上 トー ド ド バド ーー トド ーー ドー ドー バー 61 
配列 の 入出 力 ドド ーー トド ルム ーー ドド ドド トト トト トッ レト ッッ トー 62 
例題 お よび 演習 ・ 上 バ ・ ゎ (ーー ドド ドド トト トト トー 64 


2 次 式 の 根 数 表 を 作る 収束 判定 
九 九 の 表 


基本 的 な プロ グラ ム の 技法 

5. 1 整数 の 計算 ーー ドー ドー ドド トト ドド ーー トト ーー バー 75 
5. 2 最大 公約 数 と 最小 公 倍数 の 76 
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5.10 分 類 集計 ド ドド ーー ドー ドド < トド ドド < トト ーー バー 86 
5.11 平均 値 と 標準 偏差 ー ド ーー ドー ドー ドー 88 
5.12 相関 係 孝 ドド ーー ドド ドド ーー ドド トー トト トト トー ドー トー 90 
5.13 移動 平均 ーー ドー ドド ドド トト トト トト トー トト レー トト ーー トー 91 
5.14 行 和 と 列 和 上 ーー ト ド ホ ーー ドー ドド ドド トト トト トレーーー 92 
5.15 最大 値 。 最小 値 ーー トー ドド ド ドー ドド ーー ドーーーー 94 
5. 16 大 き さ の 順に 並べ る と ee 96 
5.17 ヒー ジ 法 ドド ーー ドド ドド ト トト トト トー トー トト トト トト レレレ トート ーー トート ーー 08 
5.18 演 懐 に 102 
数 値 計 算 
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6。 2 利用 者 が 定義 す る 関数 ee 104 
6。 3 自分 で 簡単 に 作れ る 関数 7 105 
6。 4 近似 式 ドー ドド ドド ドー ドー ドド ドド トー トト ト トレ ーー トー トー 106 
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6.。 7 多項式 の 積 ドー ドー ドド トド ーー ドー ドーーー 110 
6. 8 組立 除法 ・ ド ドー ドー ドー ドド ドド トド トト ーー バー 111 
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8. 1 機能 紹 休 ドド ドド ドド ドド ドド < トト トト トト トト トレ レー レレ レー て ここ 
8. 2 画面 消 到 ・ 上 に レ ビバ ド む バー バ ドド ドド ドド ドー 
8.。 3 上 声 の 表示 ーー ドーーー ド ドド ドド トト トゥ トト トレ トレ レレ トト トー トー トー 
8. 4 直線 を 引く ニー ーー ドド ドド ドド ドー ドド ドド ドド トト トト トト トー 
8.5 四角 を 描く ドニー ドー ドー ドド ドド ドド < ドド トー トト トト レレレ レーーーーー 
8. 6 円 を く ドド ドー ドド ドー ドド ドド ドド トト に トト トト トト トト トレ レレレ ーーーーー・ 
8. 7 文字 の 表示 上 ドー トド (ドー ドド ドド ドド トト トレー 
8.。 8 GEm@ 文 と PUT@ 文 = ドド ドド トバ ドド ーー ドド ドド ドー トレー 
8. 9 オー プ ニ ン グ ・ セ レモ ーー ドド ドド ドド ドド ドド トト トト ーー バー 
8.10 色 の 指定 ーー ドド ーー ドー ドド ドー トド ーー レーーー 
8.11 例題 お よび 演習 ドド ーー ドー ドー ドー ドド ーーー 
線 を 引く スケ ー リ ング 棒グラフ 
折れ 線 グ ラフ ッ ニ テア (*) の グラ フ 
極座標 円 グラ フ 等高線 動か す 
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A.1 プリ ンタ ター ドー ドー ドド ドド トド トド < トト ト トト トト ト トト レレレ ッ トト トー トー バー 
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] 機器 構成 


1.1 CPU 


パー ソナ ル ・ コ ンピュータ ー (personal computer) の こと を 略し て パ 
ソコ ン と いう 。 

personal は | 個人 の | と いう 意味 で ある 。 パソ コン の CPU (central 
processing unit。 中 央 処理 装置 ) は 。 こん な に 小さ い ( 下 の 写 真 は 実物 
大 ). 





Z-80A 
NEC の PC-8000 シリ ー ズ や PC-6001 
シャ ー プ の MZ-80 シリ ー ズ 。 東芝 の PASOPIA 
SORD の 200 シリ ー ズ , SFC の BUBCOM80 
沖 電気 の ザ -800 な ど に 使わ れん て いる 。 


メモ リー (記憶 装置 ) も 。 こん な に 小さ い 。 





これ で 64 氏 ビッ ト 。 すなわち 
8K バイ ト の 容量 が ある 。 


1 機 器 構成 
1.2 本 価 


CPU は 単独 で は 動か な い 。 パソ コン と し て 使う に は 。 その ほか に 
電 源 
メモ リー( 記 憶 装置 ) 


イン ター フェ ー ス (外部 の 機器 を 接続 する た め の 窓 口 ) 

キー ボー ド (鍵盤) 
な ど が 。 最低 限 。 必要 で ある . これ ら を まとめ て ケー ス に お さめ た だ も の 
を パソ コン の 本 体 と いう . 本 体 は 。 こん な 形 を し て いる . 





PC-8801 Micoro-8 





MB-6890 (通称 Level-3) PC-6001 


1.3 ディ スプ レイ 3 


1.3 ディ スプ レイ 


パソ コン の 操作 を し た り 計 算 結果 を 見 た りす る に は , ディ スプ レイ 装 
置 (モニ ター と も いう ) が 必要 で ある .。 最低 限 。 本 体 と ディ スプ レイ 装 
赴 が あれ ば 。 パソ コン と し て 使う こと が で きる 。 





PASOPIA の ディ スプ レイ 
本 体 と ディ スプ レイ 装置 が 一 体 に な っ て いる 機種 も ある . 





Multi-16 N5200-05 


4 1 機器 構成 


家庭 用 テレ ビ を ディ スプ レイ 装置 
の 代用 品 と し て 使う こと も で きる . 


[備考 ] 

1 ) 接続 の 要領 は テレ ビ ・ ゲ ー ム と 同 
様 で で チャ ン ネ ル 2 ま た は 1 (空い て い 
る 方 ) で 見 る こと が で きる 。. 

2 ) 家庭 用 テレ ビ に 接続 する に は 。 パ 
ソコ ン の 出力 を テレ ビ と 同じ 高 周 濾 信 
号 に 変換 する 必要 が ある . その た め の 変 
換 器 (アダ プター。 コン バー ター) を 内 
蔵 し て いる 機種 も ある が , 内 蔵 し て いな 
ぃ 機種 も 多い の で , 購入 時 に 確認 する こ 
と 。 

3 ) 家庭 用 テレ ビ で も 。, 図形 は 比較 的 きれ い に 表 示さ れ , 色 も 悪く な い 。 し 
か し 。 1 行 に 表示 で きる 字数 や , 1 画面 に 表示 で きる 行 数 が 少な い の で 。 プロ 
グラ ム を 開発 し た り 本 格 的 な 計算 を し た りす る に は や は り 専 用 の ディ スプ レ 
イ 装 置 を 使う 方 が よい 。 








ここ に アン テ ナ と の 切換 え ス イッ チ を 付 
け て お く と 便利 で ある . 筆者 は , 任天堂 の テ 
レビ ピ ・ ゲ ー ム (レー シン グ 112) の 付属 品 を 流 
用 し て いる (写真 左 )。 な お , 切換 え ス イッ チ 
付き の コン バー ター も 市 販 さ れ て いる . 





スプ レイ 


ディ 


1.3 


ステ ム の 例 ] 


シ 


[パソ コン 





PASOPIA 


ま 業 





SOKD MM-23 


6 1 機器 構成 
1]. 和 4 カセ ッ ト ・ テ ー プ 


目 的 パソ コン の メモ リー の 内 容 は ,。 電源 を 切る と 消え て し まう . 
入力 し な た デー ター や プロ グラ ム を 後日 。 再び 使用 し た けれ ば , 再 入 力 可 
E な 媒体 に 記録 し て お く 必 要 が ある . その よう な 目的 に パソ コン で 利用 
で きる も の と し て は 
カギ ゼッド トド ャ テー ジ 
フロ ッ ピ ー・ デ ィ ス ク 
その 他 (バブ ル ・ カ セッ ト , 不揮発 性 RAM な ど ) 
が ある が 。 その 内 で 最も 安く 手軽 に 利用 で きる の が カセ ッ ト ・ テ ー プ で 
ある . カセ ッ ト ・ テ ー プ は また だ た 。 ソフ トウ ェ ア の 流通 媒体 と し て も 広く 
用 いら れ て いる 。. 
テー プ テー プ は 普通 の オー ディ オ ・ カ セッ ト ・ テ ー プ で よい . 高 
級 品 は 必要 な く , 1 本 200 円 前 後 の 安 い テ ー プ で 十分 ま に あ う . 音楽 的 特 
性 より も , テ ー プ に 折れ 曲がり の な いこ と の 方 が 重要 で ある . 長 時 間 テ ー 
プ は 折れ 曲がり や すく , 頭 出 し や 巻き も ど し に 時 間 が か か る な ど 了 不便 な 
こと が 多い の で , パソ コン で は も っ ぱら , C-10 (片面 で 5 分, 両面 で 10 
分 。 以下 同様 ), C-15, C-20 な ど が 使わ れる . か な り 長 い プ ログ ラム で 
も , C-10 の 片面 に 入っ て し まう 。 





シャ ー プ の C-15 マク セル の C-20 
バン コン 用 カセ ッ ト ・ テ ー プ 


1.4 カセ ッ ト ・ テ ー プ 7 

テー プ ・ レ コー ダー テー プ ・ レ コー ダー も 。, 原理 的 に は , 要する 
に 録音 と 再生 が で きれ ば よい わけ で , それ 以上 の 特殊 な 機能 は 要求 され 
て いな い . も し も 手持 ちの テー プ ・ レ コー ダー が あれ ば , まず それ を 使っ 
て みる と よい 。 た だ し ,。 一 般 の テー プ ・ レ コー ダー を 使用 し た 場合 。 録 
音 レ ベル と 再生 レベ ル の 調節 は きわ め て デリ ケー ト で 。 調子 よく 動く よ 
うに する だ た だめ に は 。 何 十 回 で も ,。 何 百 回 で も 根気 よく 試行 錯誤 を くり か 
えす 必要 が ある 。. 

それ に 対し 。 パソ コン 専用 に 開発 され た レコ ー ダ ー PC-6082 (日 本 電 
気 製 で ある が 各社 の パソ コン に 使用 可能 ) は, か な り 広 い レ ンジ に わた っ 
て 確実 に 動作 し て くれ る .。 その 上 , 前 後 五 つ まで の プロ グラ ム の 自動 頭 
出し が で き て 便利 で ある . 





PC-6082 

シャ ー プ の MM を 80 シリ ー ズ は ,。 本 体 に カセ ッ ト ・ レ コー ダー が 組み 込 
まれ て いる 。 本 機 の カセ ッ ト ・ レ コー ダー も 性 能 が よく , 安心 し て 使用 
で きる 。 





クン ン ン “ MZ-80K2 
互換 性 異な る 機種 の 間 の カセ ッ ト ・ テ ー プ の 互換 性 は 無い . す な 
わ ち 。 ある パソ コン で 記憶 し た テー プ を 他社 の パソ コン で 読み 取る こと 
は ,。 通常 の 方 法 で は 不可 能 で ある 。 


8 1 機器 構成 
]. ら 5 フロッピー・ デ ィ ス ク 


ディ スク は 円 毅 の 表面 に 磁気 的 に 情報 を 記録 する も の で 
大 量 の デー ター を 記録 で きる 
ラン ダム ・ ア クセ ス が 可能 * 
その わり に 安い 
な どの 特長 が あり , 大 容量 記憶 装置 と し て , また 情報 を 保管 する 手段 と 
し て 。 広く 用 いら れ て いる 。 
フロ ッ ピ ー・ デ ィ ス ク は 。 それ を 小型 コン ピュ ー タ ー の た だ ため に 簡易 化 
し た も の で 。 円 盤 は 厚紙 の ジャ ケッ ト に 入っ て お り ,。 その まま 駆動 装置 
に さ し 込 ん で 使用 し 。 使用 後 は と り は ず し て 保管 する こと が で きる . 
標準 フロ ッ ピ ー 








BMDG30 還 00 
リ イ 人 8 イン チ 
09390 ( 約 20 cm) 


小型 コン ピュ ー タ ー で 普通, 使わ れ て いる の は ,。 標準 フロ ッ ピ ー(8 イ 
ンチ ・ フ ロッ ピー) と 呼ば れ て いる も の (写真 右 ) で 。 それ を 使用 で きる 
パソ コン も ある が 。 か な り 高 価 な の で 。 パソ コン 用 に 。 ひと まわ り 小 さ 
いい ミニ フ ロッ ピー 還 M5 イ ンチ ・ フ ロッ ョ 写真 友 ) が 開発 され ,。 パソ 
コン で は 主 に こち ら が 使わ れ て いる 。 な お , さら に 小さ な マイ クロ ・ フ 
ロッ ピー も 開発 され , 一 部 の 機種 で 使用 きれ て いる . 


*※ どん な 順序 で も 即座 に デー ター の 書き 込み 。 読み 出し が で きる こと . 


お 5 剛一 マ アデ ィ ス ク 9 
容 量 フロ ッ ピ ー・ デ ィ ス ク の 記録 方 式 に は 
片面 だ け に 記録 する 単 密度 
両面 に 記録 する 倍 密度 
の 区 別 が あり ,。 それ に よっ て 容量 は (機種 に よっ て 多少 の 差 は ある が ) 
だ いた い 。 次 の よう 爺 な る *。 


ミニ フロ ッ ピ ー 標準 フク ロッ ピー 
単 密度 75*B 250*5 
片面 ( 
倍 密 度 150 500 
単 密度 150 500 
両面 
倍 密 度 300 1 





ミニ フロ ッ ピ ー の 駆動 装置 標準 フラ フロッピー の 駆動 装置 
の 例 (日 立 MP3540) の 例 (日 本 電気 PC-8S81 ) 


イン ター フェ ー ス ディ スク 装置 を 本 体 に 直結 で きる 機種 も ある が , 
接続 の た め の 仲介 装置 (イン ター フェ ー ス ) を 必要 と する 機種 も 多い . 





※ KB は キロ バイ ト ( 王 1000 バイ ト = 250 ワー ド ).。 1 バイト (byte) は 
8 ビッ ト で , 文字 や 記号 1 字 に 対応 , た と えば 容量 が 100KB な ら ば 十 万 字 記 憶 
で きる こと に な る 。 IMB は メガ バイ ト (= 百 万 パイ ト )。 
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1.6 プリ ンタ ー 


パソ コン で は 主 に ドッ ト ・ プ リン ター が 使わ れ て いる .。 これ は 活字 を 
使わ ず 。 文字 の 形 に 点 を 打っ て ゆく 方 式 の プリ ンタ ー で , 
安く , 小型 。 軽量 で 速い 
文字 の 種類 を 多く で きる 
文字 の 大 きき さ を 変 える こと も 容易 
図形 出力 も 可能 
な どの 利点 が ある . 現在 。 下記 の 2 機種 が 広く 使わ れ て いる . 





靖 工 樹 の GP-80 

GP-80 の 方 が 小型 で 紙 幅 も 狭い が 文字 の 間隔 も 狭い の で , 両機 と も 1 行 
に 80 字 (縮小 文字 を 使え ば 132 字 ) 打てる . な お , 

横幅 が も っ と 広い も の 

漢字 が 使用 で きる も の ( 縦 書き 可能 の 機種 も ある ) 

赤 と 黒 の 切り 換え の で きる も の 

活字 を 使っ て 本 格 的 な 美しい フォ ント で 印字 で きる も の 
な ども 市 販 さ きれ て いる 。. 
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ドッ ト ・ プ リン ター に よる 印字 の 拡大 写真 


(| コンポ や スシ s6 


EC 人 ee DE 較 明 | ie 

EMR JUNWRS JJ Ft 1 Se | 5 ea 

ンー つ さ FE デー トー 5 | 

9 CI 間 CM 【 " sp に 還 Es 

sPi NIIJTH ス 時 間 昌 O ci 5 | 1 叶 …、 「 

いひ > ち よき we 了 は 
デ へ 芝 る 吊 生 中 Ln 記 Jr 人 に 電 に 3 い ED 軸 則 
ラ っ >RS 玉 思 ee 
日 = 計 - ま ・ を 、 拓 し ま 生還 PJ し II 

さ ヒ ジリ ポロ よ な HH ae 

PowenPe oe 

に と つて < 全 ] ee 

ご ロ OUG に T 訪 ーー 間 

つら LE IM 1 ee 0 


NN ロロ 0 ロ 0P EF 傘 
s ジ ヒヒ 5 相 信 相 
| を 丘 評 HE で 





wm こ 】 4 企 上 「 い 2 
キビ と 全 人 久 U る 
と 


Nm 提 ・ 吉 
境 口 で 加 レー カカ 
間口 必 っ 中 ピ 
=: 吊 品 と に 記 邊 
て m 氏 』 寺 思 

@* 生 上 区 机 





ドッ ト ・ プ リン ター に よる 出力 例 


グラ フ や 図形 も 描け る 


# 補 9 


W 
2 


計 


"さい ます 。 
。 信人 
ノ 0 お 1 い 


/ 


こう 〈 い ます 
ァ イ オ 


まし と. 保 イ 


* 潮 に AU ま UE. 婦 
% ムダ ー ル 月 まう て いき す 。 必 


* 秋 、 マ イコ ント 
* 409 手 区 7⑰ 
* 2 リ 0 本 % 旬 日 読 し て いま す 。 清 


新年 お ゆで と う 


漢字 の 出力 例 


12 1 機器 構 成 


1.7 + の 他 


以上 が 標準 的 な 構成 機器 で ある が , その ほか 必要 に 応じ て 各種 の 周辺 
装置 を 接続 し て 利用 する こと が で きる 。. 

ライ トペ ベン ディ スプ レイ 画面 を ペン で 指し て , 項目 の 選択 や 座標 
の 入力 を 行なう こと が で きる 。 

ジョ イス ティ ッ ク 写真 ( 右 ) の よう な 棒状 の スイ ッ チ で 。 棒 を 倒 
し て いる 向き (8 方 向 ) を 検出 で きる . 

叉 -Y プロ ッ タ ー ズ 方 向 。 T 方 向 に 自由 に ペン を 動か し て 図形 や 
文字 を 描か せる こと が で きる 。 何 本 か の ペン を 自動 的 に 変換 し て 多 色 の 
プロ ッ ト の で きる 機種 も ある . 

ディ ジ タ イ ザー 図面 を 盤 上 に 固定 し 。 ペン で 図面 上 の 点 を 指し て 
座標 を 読み 取る こと が で きる 。. 

音響 カプ ラー 電話 で 計算 セ 
ンタ ー (また は パソ コン を 持っ て 
ゅ ぃ る 友人 ) を 呼び 出し , 受話 器 を 
音響 カプ ラー に は め る と 。 デー 
ター や プロ グラ ム を 送信 受信 で き 
る . 





AD (analog to digital) コン バー ター 一 電圧 を 数 値 デ ー タ ー に 変換 
し て 入力 する 装置 。 自動 計測 な ど に 用 いら れる 。 
DA (digital to analog) コン バー タ 一 コン ピュ ー タ ー の 出力 を 電 


圧 に 変換 する 装置 . 自動 制御 な ど に 用 いら れる 。. 

接点 入力 装置 外部 の スイ ッ チ (ある い は リレー 接点 な ど ) の ON, 
OFF を 検出 し て 入力 する 装置 . 

接点 出力 装置 コン ピュ ー タ ー の 指令 に よっ て スイ ッ チ を ON, 
OFF する 装置 . 


』7 』 補 ゆ 
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簡易 ディ ジ タ イ ザー 
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[資料 】 パソ コン で 利用 で きる 漢字 (PC-8801) 


亜 陣 姓 阿 京 愛 挨 始 知 功 茜 稔 藻 提 混 旭 童 芦 朋 梓 圧 幹 扱 宛 尋 前 絢 綾 岬 或 票 裕 安 虐 投 暗 案 疾 澤 杏 以 伊 位 依 億 囲 
トト ーー トキ キト トー シー トー キョ トキ エー キキ 4 本 に に レト 芋 詞 多 印 吊 具 因 茹 引 飲 補 肌 栓 











寺 
第 刈 閣 瓦 乾 促 窪 褒 刊 動 勧 巻 嘆 場 如 売 官 店 電 人 m 條 相 析 小寺 
売 観 諫 買 選 詳 同 困 図 陥 埋 館 紅 丸 含 岸 蔵 玩 部 眼 者 断 族 麻 頑 顔 願 企 伝 危 剖 器 基 庁 建 寄 岐 希 誤 騙 握 机 旗 既 期 棋 棄 
機 帰 裁 気 汽 鐵 祈 季 稀 紀 往 規 記 貴 起 軌 交 負 崎 鬼 急 偽 儀 法 官 虚 技 擬 歌 欄 凶 蔵 義 帳 語 議 換 菊 筑 吉 史 誠 枯 橋 詰 太 杵 
委 却 客 脚 膚 遡 丘 久信 休 太 吸 宮 弓 急 救 朽 求 波 潤 笑 球 究 容 筑 級 紅 給 旧 牛 去 居 巨 拒 操 挙 近 成 許 距 導 漁 失 魚 亭 享 京 
供 佑 信 見 競 共 凶 協 攻 帰 叫 項 境 峡 強引 忙 恐 恭 挟 教 橋 況 狂 狭 矯 胞 爾 尋 疾 郷 請 礁 寺 栓 


経 継 撃 肢 茎 刑 常 計 語 警 軽 頸 鵜 芸 迎 鯨 劇 埋 撃 激 隙 桁 傑 欠 決 潔 穴 結 血 訣 月 件 俊 

検 権 牽 犬 献 研 視 紅 県 肩 見 謙 賢 軒 違 護 険 爾 験 赤 元 原 厳 幻 蓄 減 源 玄 現 統 扱 言 放 限 平 個 古 呼 固 千 孤 己 局 弧 戸 故 枯 
潜 狐 冬 補 股 胡 徹 虎 誇 噂 語 居 顧 鼓 五 互 佑 午 呉 吾 娯 後 御 悟 枯 檎 区 碁 語 誤 護 開 を 鯉 交 伝 侯 候 停 光 公 功 効 勾 厚 口 向 
后 喉 坊 垢 好 孔 才 雪 工 巧 大 地 広 諾 康弘 恒 慌 抗 拘 控 攻 易 児 更 杭 校 西 構 江 洪 浩 港 溝 甲 生 硬 柄 入 紅 統 級 綱 耕 考 衣 須 
腔 育 航 荒 行 稀 講 貢 購 部 酵 吉 秦 調 間 降 項 香 高 鴻 則 郊 号 合 協 扶 温 斉 責 鶏 克 刻 告 国 尊 酷 内 時 狼 湾 腹 夕 急 惚 骨 狐 込 
紀 頃 今 困 地 肛 婚 恨 懇 皆 昆 根 梱 混 痕 紺 良 魂 革 佐 叉 唆 峰 左 差 査 沙 末 砂 座 終 半 座 振 債 催 再 最 哉 塞 奏 宰 彩 才 採 栽 
歳 済 災 泉屋 砕 舌 祭 斎 細 菜 裁 載 際 剤 在 材 罪 財 聞 坂 阪 現 捕 者 咲 崎 埼 砂 作 削 川 搾 昨 期 杜 容 策 案 護 鮭 管 葉 冊 刷 
穴 拶 撮 控 札 林 覆 雑 阜 央 拉 靖 航 皿 晒 三 傘 散 欄 媒 現 産 算 菓 礁 詩 損 酸 装 斬 軸 残 仕 仔 伺 使 刺 司 史 嗣 四 士 始 
姉 浴 子 展 市 師 志 思 指 支 和 新 施 計 校 止 死 氏 獅 祉 私 系 紙 薬 肢 脂 至 視 詞 詩 試 誌 族 資 賜 雌 飼 歯 事 似 侍 児 字 寺 持 時 
次 滋 治 箇 時 導 磁 示 面 耳 自 時 辞 少 鹿 式 議 鴨 党 還 突 恒 七 叱 執 失 姓 室 花 温 漆 疾 質実 部 委 偶 柴 芝 麻 落 結 写 射 拾 示 
料 煮 社 紗 者 珠 種 腫 趣 酒 首 備 受 呪 寿 授 褐 緩 香 囚 収 周 
款 蹴 州 修 恐 拾 洲 秀 秋 終 纏 習 臭 舟 兎 家 避 登 訴 四 週 合 酬 集 本 仕 住 充 十 従 下 系 汁 渋 貞 終 年 銃 想 峰 宿 洲 祝 縮 下 塾 軸 
出 術 述 俊 肉 春 明 護 用 駿 准 循 旬 桶 痢 淳 準 潤 盾 純 巡 道 酵 順 処 初 所 重 嘱 潜 庶 結 夫 書 募 務 庄 助 衝 女 序 徐 起 証 除 傷 償 

医 井 召 哨 商 唱 管 間 其 旭 育 将 小 少 商 圧 床 座 彰 基 抄 招 常 呈 窟 : 焼 


擬 託 旬 
0) 公洋 性 過 遇 電 担 日光 腸 団 電 明和 
池 恥 知 池 痴 稚 莉 致 次 遅 乱 築 畜 竹 筑 北 逐 秩 窒 茶 鐵 着 中 仲 宙 忠 抽 恒 柱 注 虫 衣 計 酎 鋳 駐 樽 油 猪 着 貯 丁 兆 油 嘩 直 
凡 帳 庁 吊 張 彫 微 剖 挑 坦 朝 漁 農 町 眺 聴 有 腸 媒 調 課 超 跳 氷 長 頂 鳥 勅 抄 直 騰 沈 珍 賃 琶 陳 津 唯 横 追 諾 痛 通 塚 杭 
槻 但 漬 枯 辻 伸 綴 計 椿 潰 坪 奄 敵 納 爪 吊 約 鶴 亭 低 停 偵 剃 貞 呈 堤 定 底 庭 延 弟 悦 抵 擬 撮 江 古 視程 締 艇 訂 謗 中 通 
邸 範 釘 昧 泥 摘 握 敵 漬 的 笛 適 環 湖 哲 徹 撤 輸送 吹 典 墳 天 展 店 添 纏 衣 貼 転 劇 点 伝 典 池田 電 兎 吐 培 塗 婦 必 徒 斗 杜 渡 
登 免 賭 途 都度 砥 権 努 度 土 奴 怒 倒 党 冬 凍 刀 唐 塔 境 容 島 嶋 悼 投 搭 東 桃 憎 棟 盗 海 湯 注 灯 燈 当 着 諸 等 答 科 結 統 到 
童 測 隊 討 騰 豆 路 逃 透 議 陶 頭 騰 較 勘 動 同 堂 導 憧 描 洞 瞳 童 胴 食道 敵 幅 失 匿 得 徳 濱 特 叔 充 角 毒 独 読 栃 標 凸 突 概 届 
草 苫 寅 西 洛 只 屯 憧 教 池 豚 通 頓 知 旦 純 奈那 内 生 凪 謎 決 擦 席 格 馴 縄 内 南 楠 軟 難波 二 尼 式 記 匂 岩 肉 虹 廿 日 乳 入 
如 尿 非 任 妊 妨 認 浦 較 福 寧 到 猫 熱 年 念 失 狼 幣 知 乃 適 之 尊 東 悩 濃 納 能 脳 左 諾 悦 宇 巴 把 括 罰 想 波 派 琶 破 受 巴 間 馬 
俳 廃 拝 排 敗 杯 殖 牌 背 肺 盗 配 倍 培 媒 梅 様 媒 名 買 売 賠 隊 遺 黄 律 知 攻 伯 剣 博 拍 柏 泊 白 冶 粗 舶 薄 人 迫 暗 潰 婦 縛 昔 表 
箱 礁 箸 貢 堂 栖 帆 肌 知 曲 八 鉢 澄 発 本 瑞 備 抽 抜 後 閥 半 反 朱 帆 池 2 般 薄 販 
米 炉 頒 飯 挽 晩 番 盤 磐 警 密 了 卑 古 妃 克 彼 悲 硫 批 拓 斐 比 泌 療 皮 碑 秘 災 角 肥 被 誹 費 避 非 飛 樋 角 備 尾 微 枕 昆 琵 眉 美 
鼻 格 種 匹 中 衣 彦 膝 委 肘 絢 必 本 健軍 檜 姫 娠 組 百 誠 祭 標 氷 涯 圭 票 表 評 約 恵 描 病 秒 苗 錯 訴 森 縦 鱗 品 形 小 浜 洛 貧 
宮 頻 敏 瓶 不 付 坦 夫 婦 富 富 布 府 怖 扶 敷 普 浮 父 符 魔 虐 甘 譜 負 周 赴 息 附 人 揮 式 舞 訪 燕 部 封 梶 風 和 牙 伏 副 復 幅 服 
福 腹 複 導 淵 発 払 沸 仏 物 鋼 分 史 噴 墳 慎 拐 装置 粉 汐 紛 雰 文 間 内 併 兵 堀 刺 平 軸 柄 並 蔽 閉 隊 米 頁 人 束 韻 碧 別 息 基 富 
偏 変 片 篇 編 辺 返 遇 便 各 尋 弁 斉 保 舗 帆 園 捕 歩 南 補 輔 抗 募 曹 募 友 墓 母 簿 苦 人 倖 包 呆 報 奉 宝 峰 才 崩 具 抱 捧 放 方 朋 
池 あ キキ キキ ーー シキ も ーー ーー バー ビー イキ ーー で すま 持 - 
撲 朴 牧 睦 稀 加 芝 没 殆 堀 幌 春 本 翻 凡 盆 摩 磨 魔 麻 埋 妹 味 枚 毎 呼 横 幕 膜 枕 財 講 翔 赤 俣 又 抹 末 涼 迄 億 臣 訂 万 慢 満 
漫 草 味 未 魅 巳 愛 岬 密 密 湊 束 稔 脈 妙 民 過 務 陣 無 生 予 要 夫 棟 靖 娘 具 名 命 明 盟 迷 部 鳴 姓 北 減免 和 綿 縮 面 燃 携 模 
成 妄 丘 毛 括 言 綱 耗 裏 偽 木 黙 目 李 勿 皮 戻 親 問 賠 級 門 色 也 冶 夜 蘭 度 野 弥 矢 厄 役 約 薬 訳 朝 靖 柳 填 講 情 人 油 癒 
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2.1 電源 ON 


本 体 の 電源 スイ ッ チ は 。 た いて い 。 後 側 (また は フタ の 中 ) に つい て 
いる .。 これ は 使用 中 に 誤っ て (ある い は イタ ズラ な どの た め に ) 電源 を 
切る こと が な いよ うに する だ た めで ある . 使 用 中 に 電源 を 切る と, メモリー 
の 内 容 は 全部 失わ れ , 使用 中 の ディ スク ・ フ ァイル も 被害 を 受け る こと 
が ある. 





PC-6001 の 本 体 を 後 か ら 見 た と ころ 

フロ ッ ピ ー・ デ ィ ス ク の 電源 スイ ッ チ も , 使用 中 に ON。 OFEF する と 
ディ スク に 記録 され た 内 容 が 破壊 きれ る の で , 誤操作 防止 の た め ス イッ 
チ は 後に つい て いる 。. 





フロ ッ ピ ー・ デ ィ ス ク 装 置 MP-3540 を 後 か ら 見 た と ころ 
その 他 の 機器 は , か な り 自 由 に ON, OFF で きる . 
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2.2 BASIC の 起動 


多く の 機種 . た と えば 日 立 の Level-3。 富士 通 の Micro-8。 シ ャ ー プ の 
MZ-80B( デ ィ ス ク ・ ベ ー ス で 使用 する 場合 ), 日 本 電気 の PC-8001( デ ィ 
スク を 使用 し な い 場 合 、 な ど に お いて は , 電源 を 入れ る と た だ ち に 
BASIC を 使用 で きる 状態 に な る . 


11「 有 に HT し EVE レ に -ー コ 3 お RS し Vergign 3 すけ 9 


1 1 ip の 因 妥 すま に 細 " at "sh20000 し 


ざさ ロウ コイ アウ But る < F ト ee 
了 昌 まそ 





電源 投入 直後 の 画面 (日 立 の Level-3 の 例 ) 
Ready と か OK と か いう 表示 は , BASIC の 入 
力 を 受け 付け られ る 状態 に ある こと を 表す . 


初期 設定 の た め の 人 簡単 な 応答 を 必要 と する 機種 も ある 。 以下 は その 二 , 
三 の 例 で ある 。 
PC-6001* 電源 を 入れ る と 


How many pages ? 
と いう メッ セー ジ が 出る か ら , 
グラ フィ ッ ク を 使わ な い (文字 表示 だ け で よい ) 場合 は 1 | 改行 | 
グラ フィ ッ ク を 使う 場合 は (普通 ) る 
複数 人 筒 の グラ フィ ッ ク 画 面 を 使い た い 場合 は る また は 4 
を 入力 する . 


PC-8001* (ディ スク 使用 の 場合 ) 電源 を 入れ る と 
How many files ?7 


と いう メッ セー ジ が 出る か ら 。 同時 に オー プン する ファ イル の 数 を 入力 
する (普通 。 2 を 入れ て お け ば 安全 )。 


* いずれ も 日 本 電気 の 製品 
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左記 の 諸 機 種 で BASIC が すぐ 使え る の は , BASIC の イン ター プリ ー 
ター (プロ グラ ム を 解読 し て 実行 する 仕掛 け ) が 本 体 に 組み 込ま れ て い 
る か ら で あ る .。 それ に 対し , BASIC の イン ター プリ ー タ ー を 内 蔵 し て い 
な い パ ソコ ン も ある .。 そう いう 機種 で BASIC を 使う 際 に は , まず 
BASIC イ ンタ ー プ リー ター を カセ ッ ト ・ テ ー プ な どか ら 読 み 込む 必要 
が ある *.。 た と えば : 

MZ-80** 電源 を 入れ る と , まず 。 モニ ター (実行 管理 プロ グラ ム ) 
の 直接 制御 下 に 入り 。 モニ ター へ の コマ ンド (指令 ) を 入力 で きる 状態 
に な る (そう いう 状態 の と き は * 印 が 出る ). そこ で BASIC イン ター プ 
リー ター の テー プ を セッ ト し , キー ボー ド か ら 


LOAD 


を 入れ る と 読み 込み が 始ま る . 1 分 40 秒 後 。 テープ が 止ま っ て 民 選 ADY 
が 表示 され た だ た ら BASIC を 使用 で きる . 





BASIC の シス テム ・ テ ー プ 
BUBCOMS80*** BASIC イ ンタ ー プ リー ター の 入っ て いる バブ ル ・ 
カセ ッ ト ま た は フロ ッ ピ ー・ デ ィ ス ク を 装着 し て , リセ ッ ト ・ ボ タン を 
押す . 


* ネ これ は BASIC の 利用 者 に と っ て は 不便 で ある が , 他 機 種 で も BASIC 
以外 の プロ グラ ミン グ 言 語 (FORTRAN,。COBOL, PASCAL な ど ) を 使う 場 
合 に は 同様 の 操作 が 必要 で ある 。 

* ネ 。 シャ ー プ の MZ-80B。 MZ-80C。 MZ-80K2 な ど を テー ププ ・ ベ ー ス (ディ 
スク な し ) で 使用 する 場合 

末 ※※ 床 シ ステ ムズ ・ フ ォ ー ミ ュ レ ー ト 社 (SFC) の 製品 
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グ . 3 キーボード 


キー ボー ト (鍵盤 ) に お ける キー の 配置 に 関し て は JIS の 規定 が あ 
り 。 だ いた だ たい どの 機種 も これ に 従っ て いる . 


普通 の (シフ ト し な い ) 状態 で は 次 の よう に な っ て いる *。 


IEIBIIBIGI2IBIII 回 回 回 
II 回 回 | 回 (回 回 (回 回 回 仙 
II 回 II 回 同 | 回 | 
IE3IGI 回 回 回 同 回 罰 
し に ュ スー ぇ ) 


これ は タイ プラ イタ ー と 同じ 配列 で ある 。 ただし, 多く の パソ コン で は 。 普通 
の 状態 で は 大 文字 が 入力 され , シフ ト し た と き に 小文字 が 入力 され る (PC 
-8001、PC-6001。BUBCOM80 な どの よう に 。 標準 状態 が 小文字 シフト する 
と 大 文字 , と いう 機種 も ある が , BASIC の プロ グラ ム の 入力 時 に は 小文字 で 入 
力 し て も , 注釈 と 文字 列 定数 以外 は すべ て 大 文字 に 変換 され る ). 


上 段 シ フト し た 状態 で は 次 の よ うに な る 。 


LUPJtJt(gUJLUUJLJELJLJ 
le(etrtJtJllLU(eLLJ 

usb JeltllgtehJttJtjtL」 
EzJkJtetJeJmmkjJtU(-」 


ス べべ 一 ス 


(PC-8001。 PC-6001。 BUBCOMS80 な どの 場合 は 。 こち ら が 大 文字 に な る ) 


* ま 状態 の 切換 え は , 上 段 下 段 シ フト ・ キ ー, 英 数 字 と カナ 文字 の 切換 え 
キー。 グラ フィ ッ ク 切 換え キー に よっ て 行なう 。 
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カナ 文字 シフ ト の 状態 に お いて は 次 の よう に な る 。. 


軸 選 牙 回 EE 局 避 国 ロ 

glElElglgleCJL- 

(JEJtgjcCCuclg 

(gglElEllaplcl(g 
し ュ え く こ ぇ 


これ は 非常 に 覚え に くい 配列 で 。 最初 の うち は カル タタ 取 り の よう な 感じ に な 
る が 。 打 ち に くい か ら と いっ て 使わ な けれ ば 。 い つま で も 上 達し な いか ら 。 タタ 
イプ ライ ター の 練習 だ と 思っ て 根気 よく まめ に 使う こと が 大 切 で ある . 


カナ 文字 の 上 有 段 は 次 の よう に な っ て いる 。. 


D ロ gelgJgEgE ロ ロロ 

画 | 間 |[ 男 | 画 | 較 | 画 | 画 [ 男 男 | 較 | 

JUL 

JHUHUEGC ロ 
| えさ こぅ ぇ 


し 」 
し J 
し 」 
に 


グラ フィ ッ ク ・ シ ン ボ ル の キー 配列 は 機種 に よっ て 異な る 。 その 一 例 
と し て 。 PC-8001。 PC-8801 の 配列 を 以下 に 示す 。 


LJLJL IL WUll(l 黄 (] 箇 (し 
Lc (4 し JEdte(wlUL TL」 


2 の 
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2 グ .4 プロ グラ ム の 入力 


基本 的 な 入力 方 法 BASIC の プロ グラ ム や デー ター は ,。 行 単位 に 
入力 する 規則 に な っ て いる . それ ら の 行 の 終り に は , 必ず | 改行 | キー を 押 
す .。 この キー の 名 称 は 機種 に よっ て さま ざま で 。 


RETURN 


(Carriage return の 略 ) 


上 


な ど と 表記 され て いる 。 
NEW 新規 に プロ グラ ム を 入力 する と き に は , まず 


NEW [改行 
を 入れ る 。 これ は 「 新 し い プ ログ ラム を 入れ ます よ 」 と いう 。 パソ コン 
に 対す る 意志 表示 で ある . これ を 入れ る と , パソ コン は ,。 それ まで 入っ 
て いた だ た プログ ラム (だ た と えば 。 前 に 使っ た 人 が 残し て いっ た も の ) を 消 
し て , 新規 入力 の た め の 準 備 を 行なう . な お , 電源 を 入れ て 最初 に 使う 
と き は 。 NEBW を 入れ な く て も よい 。 
AUTO 次 に 

AUTO | 改行 


を 入れ る . これ は 「 行 番号 を 自動 的 に 付け て 下さ い 」 と いう 意味 で ある . 
これ を 入れ る と ,。 た だ ただちに 。 最初 の 行 番号 

10 
が 表示 され , 以後 。 1 行 入 し ん る ご と に , 20,。 30。 40。… と いう よう 
に 10 間 隔 の 行 番号 が 自動 的 に 表示 され , 行 の 先頭 に 付加 され る (10 番 お 
き に な っ て いる の は , あと で 説明 する プロ グラ ム の 修正 作業 を 容易 に す 
る た めで ある )。 なお, 最初 の 行 番号 や 間隔 を 指定 する こと も で きる . そ 
の 場合 は , 次 の よう に 入れ る . 

AUTO 最初 の 行 番号 , 間隔 
( 例 ) AUTO 3000,1 
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行 の 継続 プロ グラ ム や デー ター の 1 行 が ディ スプ レイ の 画面 の 1 
行 に お さま ら な い 場 合 。 途中 で | 改行 ! キ ー を 押し て は いけ な い ([| 改 行 | を 
押す と , そこ が 行 の 終り と みな され て し まう )。. 画面 の 右端 に 来 て も , か 
まわ ず 入 力 を 続け れ ば よい の で あっ て , そう する と 画面 上 で は 自動 的 に 
次 の 行 に 表示 され る が 。 入力 し た 文字 列 と し て は 前 の 続き と し て 扱わ れ 
る . 

LIST "プログ ラム を 入れ 終っ た ら 


LTST 

に よっ て ,。 いま 入力 し た プロ グラ ム を 表示 させ , 正しく 入力 され て いる 
か どう か を 調べ て みる と よい 。 

[表示 の 中 断 ] 長い プロ グラ ム で 1 画面 に 表示 で き な い 場合 ,、 スクロール と 
いっ て ,。 表示 内 容 を 1 行 ず つ 上 に ずら し て , 一 番 下 の 行 を あけ て ,。 そこ に 新 し 
ぃ 行 を 表示 する .、 そのため , 画面 の 上 の 方 に 表示 され て いる 行 は , 上 か ら 1 行 
ずつ 画面 の 外 に 追い 出さ きれ て し まう . し た が っ て , 途中 で 停止 きせ な いと , ゆっ 
くり 画面 を 見 る こと が で き な い .。 LIST を 中 断 す る た め の 操 作法 は 機種 に よ 
り 異 なり, 普通 は 


| ESC | (エス ケー ブ ) キー を 押す 
| BREAK | キー を 押す 


スペ ー ス ・ バ ー を 押す 
の 内 の どれ か で 止ま る が 。 どう や っ て も 止ま ら な い 場 合 は 
LTST 表示 開始 行 , 表示 終端 行 
( 例 ) LIST 600 一 800 
に よっ て 表示 範囲 を 指定 する . 
[プリ ンタ ー へ の 出力 ] プロ グラ ム ・ リ スト を プリ ンタ ー に 出力 する 方 法 は 機 
種 に よっ て 異な る が 。 た と えば 


LT (PC-8001。 PC-8801 な ど ) 
LTST〒 ノ ゼ (MZ-80) 
LTSTVTPTO:『 (Level-3。 Micro8) 


な ど に よっ て 行なう こと が で きる 。 
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グ . り スク リー ン ・ エ ディ ター 

誤字 訂正 入力 の 誤り に 気付 いた と き は ,。 次 の よう に し て 誤り を 訂 
正す る こと が で きる 。. 

1 ) 行 の 途中 (| 改行 | キー を 押す 前 ) で 誤り に 気付 いた 場合 は 。 カー ソ 
ル * を 誤り の 所 まで も ど し て 正しい 文字 に 直せ ば よい . 

2 ) | 改行 | キー を 押し た あと で も , まだ 誤り の 箇所 が 画面 に 表示 され 





て いれ ば , カー ソル を そこ まで も ど し て 正しい 文字 に 直し , | 改行 | キー を 


ペー ペペ ン 





押す (| 改行 | キー を 押さ な いと , 画面 上 で は 直っ て いて も , メモ リー の 内 
容 は 訂正 されない ). 
3 ) 誤り の 箇所 が 画面 上 に な いと き は , 
EDTr 呈 訂正 し た い 行 の 番号 | 改行 
まだ は 
LTST 訂正 し た い 行 の 番号 | 改行 | 
(また は スク ロー ル ・ キ ー の 付い て いる 機種 ご は それ を 用 いて も よい ) に 
よっ て 。 誤り の 部 分 を 画面 に 表示 し , そこ に カー ソル を 合わ せ て 証 正 し 
改行 | キー を 押す . 
な お 上 記 2 ), 3 ) は プロ グラ ム の 入力 時 に の み 有 効 で ある . 
カー ソル の 動か し 方 キー ボー ド に カー ソル を 移動 する た め の キ ー 
が あり 。 移動 方 向 が 矢印 で 示さ れ て いる . これ は 


1 
に ぁ る 6 は 人 に UL 


の よう に 4 方 向 衝 立 の キー に な っ て いる 機種 も あり 。 


Eee 円 に 


MZ-80C/K PC-8001 
の よう に シフ ト ・ キ ー で 向き を 切り 換え る 機種 も ある . 





* Cursor。 画面 上 で 現在 の 入力 可能 位置 を 指し て いる 印 (点滅 し て いる ). 


2.5 スク リー ン ・ エ ディ ター 23 


( 例 1) ABODE と 入力 し た いと き 。 誤っ て の か わり に V を 押し て し まい 
直後 に 気が付い た と き は , 


AV_ (一 は カー ソル で 点 減 し て いる ) 
と 表示 され て いる 状態 か ら , | 一 | キー を 1 回 押し て 
AV 


と し (これ で V の 位置 に 入力 で きる 状態 に な っ た )。 己 の キー を 押し , 続け て 残 
り の 文字 CD 豆 を 入力 すれ ば よい . 


( 例 2) 10 Aー ユ 1 
20 B=3.14 
3 る 0 CC テ A 十 B_ (_ 印 は カー ソル ) 


まで 入力 し た だ 時点 で 。 最初 の 行 の 「 一 ] は 「=」 の 誤り ,。 と いう こと に だ 気 が 付 
いた と き は , |1| を 2 回 , | 一 | を 4 回 押せ ば 
10 Aー ユ 1 

に な る か ら , ここ で 「=」 を 押し , | 改行 | キー を 押し , | 」! と | 一 | で 先ほど の 位 
置 ま で カー ソル を も ど し て 。 続き の 部 分 を 入力 すれ ば よい . 

文字 の 挿入 画面 に 表示 され て いる 行 の 一 部 に 文字 を 1 字 だ け 挿 入 
する に は , 次 の ひよ うに する 。. 

1 ) 挿入 し た い 位置 に カー ソル を 合わ せる 

2 ) | エ NS | nsert) キー を 押す 

3 ) 挿入 し た い 文 字 の キー を 押す 


( 例 3) 10 PRNT を 。10 PRTITNT に 直す に は 。 エ を 挿入 し た い 位 置 
(N の 所 ) に カー ソル を も っ て め ゆき 
10 PRNT 


| rTNS | キー を 押し , 次 に エ の キー を 押す . 
2 字 以 上 を 挿入 する 方 法 は 機種 に よっ て 異な り , 
2) 挿入 し た い 文 字 の 数 だ け | TNS | キー を 押す 
と いう 方 式 の 機種 と , 
2/) | TNS | キー は 1 度 だ け 押 す (「 挿 入 モ キー ド 」 に する ) 
3?) 挿入 し た い 文 字 ( 何 字 で も よい ) を 入れ る 
4/) 「 挿 入 モ ー ド 」 を 解除 する (方 法 は 機種 に より 異な る ) 
と いう 方 式 の 機種 が ある . 
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行 の 挿入 。 BASIC の プロ グラ ム は 各行 に 行 番号 が 付い て いる . 行 
番号 は 普通 。 10。 20。 30。 … の よう に 10 番 お き に な っ て いる 。 あと で 新 
し い 行 を 挿入 する 必要 が 起こ っ た ら 。 それ ら の 中 間 の 行 番号 を 付け て 入 
力 す れ ば よい 、 
( 例 4) 既に 入力 し た プロ グラ ム 

10 A テ ュ 

20 COC= テ A+ 
の 途中 に 2 と いう 文 を 挿入 し た い 場 合 。 10 と 20 の 間 の 番号 (た と えば 15) 
を 付け て 

15 =2 | 改行 

と 入力 すれ ば よい (画面 の 上 で は 行 番号 10。 20。 15 の 順に な る が ,。 コン ピュ ー 
ター の 内 部 で は 正しく 10 と 20 の 間 に 15 が 挿入 され て いる 。 それ を 確認 し た けれ 
ば 。 後述 の TST と いう コマ ンド で 清書 し て みれ ば よい )、 
[ 別 法 ] 拡張 BASIC に お いて は 。 マル チ ・ ス テー トメ ント と いっ て 。 一 つの 
行 に 二 つ 以 上 の 文 を 書く こと が で きる の で (詳し く は 43 ペ ー ジ 参照 )、 上 の 例 
の よう な 場合 

10 A= テ 1 
の と ころ に カー ソル を 移し て : B= テ 2 を 入力 し 

10 A=ー1 : 選 ー2 

と し て も よい ( : 印 は マル チ ス テー トメ ント の 際 の 文 の 区 切り を 表わす )。 

削 除 入力 し た 文字 を 削除 する に は 。 普通 , 

削除 すべ き 位 置 よ り 一 字 右 に カー ソル を 合わ せる 
| DI, | (delete の 略 ) キー を 押す *。 

と すれ ば よい 。 

行 の 削除 削除 し た い 行 の 行 番号 に 続け て | 改行 ] キ ー を 押す . た と 
えば 行 100 を 消す に は 

100O | 改行 
と すれ ば よい 。 


* 。 Micro-8 の 場合 は | BS | (back space) . 


[rk し リー 1 の 欠 人 
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コン トロ ー ル ・ キ ー キー ボー ド に は , た いて い 。|OCTRTL| と いう 
キー が ある *。 これ は コン トロ ー ル ・ キ ー と いっ て 。 単独 に 押し た の で は 
何 の 効果 も な い が , これ を 文字 の キー と 同時 ** に 押す こと に より ,。 下記 
の よう な 各種 の 画面 操作 を 行なう こと が で きる 。 使 用法 は 機種 ご と に 異 
な る の で 詳し く は 各社 の マニ ュ ア ル で 研究 きれ た い 、 
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停止 ( 注 1) C O 

/ カ ニー ソル 位置 か ら 行 の 終り まで を - 研 選 
カー ソル 位置 か ら 画面 右 下 ま で を 消去 L 
画面 出力 の 一 時 停止 8 8 

カー ソル 位置 で 2 行 に 分 割 J H 
カー ソル の ある 行 と 上 の 行 を つなぐ A 
カー ソル の ある 行 と 下 の 行 を つなぐ 選 
カー ソル 位置 より 上 へ 1 行 ス クロ ー ル O 
カー ソル 位置 より 下 へ 1 行 ス クロ ー ル 選 
カナ ー ぇ 英字 変換 ( 例 。 ス ナミ ーRUT ) ケ 
画面 コピ ー O 


( 注 1) 入出 力 機器 の 動作 を 中 断 さ きせ た い の に だ に 。 普通 の 停止 キー で は 止ま 
ら な い 場 合 。 この 方 法 だ と 止ま る こと が ある . 


RENUM 挿入 や 削除 に よっ て 不 等 間 隔 に な っ た た 行 番号 を 
RENUM 改行 
に よっ て , きれ い に 付け 直す こと が で きる 。. 後述 の GOTO 文 な どの 行先 
は 。 それ に 合わ せ て 自動 的 に 修正 され る . 
REBNUM 新 行 番号 , 昌行 番号 , 間隔 
と いう 形式 で 指定 すれ ば , 「 旧 行 番号 ]」 か ら 先 の 部 分 だ け を , 新 行 番号 か 
ら 始 まる 指定 間隔 の 番号 に 付け 替え る こと が で きる 。. 


* 。MZ_80 に は これ が な い が 。 HuBASIC で は !BreakI キ ー に より 代用 し て 
上 記 と 同様 な 機能 を 持た せ て いる 。. 

玉 玉 実際 に は [OTRL| キ ー を 先 に 押し 。 押し 続け な が ら 文字 の キー を 押す 
の が 安全 。 
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2.0 実行 の 開始 , 中 断 , 再開 


開 始 プロ グラ ム の 実行 を 開始 する に は , キー ボー ド か ら 
RUN [改行 | 
を 入れ れ ば よい .。 キー ボー ド 操 作 に 慣れ て いな い 人 は ,。 画面 の 下端 を 見 
る と 。 いく つか の 単語 が 表示 きれ て いて *。 その 中 に | RUN | と いう の が 
ある 筐 だ か ら , それ に 対応 する ファ ンク ショ ン ・ キ ー (普通 . キー ボー 
ド の 最上 段 に 並ん で いて 。 
Im1| ピ る | Im4| |p5| 
まだ は 
IPm1| [Emal IP] [Be] 
な ど と 刻印 され て いる ) を 押せ ば よい . 
中 断 実行 を 中 断 す る に は 
IBTOP| 
また は (機種 に よっ て は ) 
IBR 妃 AK 
と いう キー が ある か ら 。 それ を 押せ ば ,。 た いて い 止 まる (これ で 止ま ら 
な い 場 合 の 処置 に つい て は 25 ペ ー ジ 注 1 参照 ) 
再 開 実行 再開 の 指令 は 
CORNT | 改行 





* 機種 (また は 使用 状態 ) に よっ て は 表示 され て いな いも の も ある . 参考 
まで に 二 , 三 の 機 種 の 標準 設定 を 以下 に 示す . 


PC-8001 Level-3 PC-6001 
F1 load" TOAD COLOR 
FE る 2 auto 27DATE$ , TITME$ CLOAD『 
FE3 goto KBYー」 GOTO 
FE4 lst 1.T 8 中 エ 6TT 


Po run 改行 RU RUN | 改行 


う BASIC 人 門 - 簡単 な 計算 と 入出 力 


う 3. 1 BASIC と は 


BASIC は 。 コ ンピュータ ー を 使う た め の 詩 語 (プロ グ 
の 一 種 で ある . ほか に も 
FORTRAN COBOL PL/I PASCAL 
な ど 各 種 の プロ グラ ミン グ 言 語 が ある が , BASIC に は 
簡単 で 覚え 易い 
と いう 特長 が あり 。 その た だ た め パ ソコ ン で は 広く 使わ れ て いる . 

BASIC は 。 いわば パソ コン の 母国 語 で ある . 多く の 機種 で は 電源 を 入 
れる と 同時 に BASIC を すぐ 使え る 状態 に 入る . BASIC の 使え な い パ ソ 
コン は 無い と いっ て よい . パソ コン を 買え ば 必ず BASIC が 無償 で 付い 
て くる . それ に 対し , 他 の 言語 は どの 機種 で も 使え る と は 限ら ず , 有料 
で あり , し か も 非常 に 高い . 

BASIC は 1964 年 。 Dartmouth 大 学 の J.G. Kemeny と T.E. Kurtz に 
より , 学生 に コン ピュ ー タ ー を 教え る た め の 言 語 と し て 開発 され , 教育 

言語 と し て , また TSS* 用 言語 と し て 知ら れ て いた だ た が, パソ コン で 使 
われ る よう に な っ て か ら 機 能 は 大 幅 に 拡張 され , 今日 で は 実務 に も 広く 

本 書 で は ,。 現在 パソ コン で 使わ れ て いる 拡張 BASIC( 機 能 を 大 幅 に 
張 し た BASIC) に つい て 説明 する . 本 書 の 記述 は , 大 型 コ ンピュータ ー 
や ポケ ッ ト 電 点 の BASIC な ど に は 通用 し な い の で 注意 きれ た だい. 


Ni 
/// 
V 
マ 
中 
員 


* 。 TSS= ニ time sharing system (た くさ ん の 人 が コン ピュ ー タ ー を 同時 に 
対話 的 に 利用 で きる よう に し た シス テム ) 
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3.2 命令 と プロ グラ ム 


直接 実行 形式 パソ コン は 命令 どおり に 動く た と えば 

世 包 呈 Aー る (A の 値 を る に せよ ,。 と いう 意味 ) 
と 命令 する と 。 変数 A の 記憶 場所 を 用 意 し 。 そこ に 値 る を 入れ る . また 

LBT B=3 (B の 値 を る に せよ 。 と いう 意味 ) 
と 命令 する と , 変数 B の 記憶 場所 を 用 意 し , そこ に 値 3 を 入れ る . 次 に 

L 包 BT CーA+ 己 (A+ の 値 を C に 代入 せよ ) 
と 命令 する と, 変数 C の 記憶 場所 を 用 意 し , A 二 5 すなわち る 十 る の 計算 
を し ,。 結果 5 を C の 所 に 入れ る . さら に 

PRTIRNT O (C の 値 を 表示 せよ 。 と いう 意味 ) 
と 命令 する と , O の 値 が 表示 され る . 
[実習 ] も し 手もと に パソ コン が あっ た だ たら , 上 の 例 を 実際 に や っ て みる と よ 
い 。 すなわち 

LET A=2 改行 | 

LT =3 | 改行 | 

LE CO=A+B | 改行 | 

PRTINT O [改行 
と 入力 し て みる と よい . 即座 に 結果 5 が 次 の 行 に 表示 され る で あろ う . な お , 
つい で に 

PRTNT A,B (A と B の 値 を 表示 せよ ) 
と 命令 すれ ば , A と 所 の 値 が 確か に る と る に な っ て いる こと を 確認 する こと が 
で きる . 
命令 は 一 定 の 形式 (文法 規則 ) に 従っ て 書か な けれ ば いけ な い (そう 
し な いと パソ コン の 側 で 解読 で き ず 。 実行 で き な い ). その 規則 を 覚え る 
こと が パソ コン 活用 の 第 一 歩 で あ る. 
本 章 で は BASIC に お ける 最も 基本 的 な 命令 

L 色 TE GOTO FOR NEXXF DIM 

INPUT PRTINT DATA REM END 
に つい て 説明 する (た だ し 変数 の 型 や 文字 列 処理 に 関す る 事項 は 除く ). 
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間接 実行 形式 (普通 の 使い 方 ) 左記 の 例 の よう に ,。 1 ステ ッ プ ご 
と に 使用 者 が 命令 する 方 式 で は , 複雑 な 計算 は で き な い . そこ で 普通 は 
一 連 の 命令 (これ を プロ グラ ム と いう ) を あら か じ め コ ンピュータ ー に 
記憶 させ , 命令 を 順に と り 出 し て き て 実行 する , と いう 方 式 (プロ グラ 
ム 記 憶 方 式 。 間接 実行 形式 ) を 用 いる . 
BASIC で これ を 行なう に は , 命令 の 頭 に 行 番号 を 付け て 入力 し , プロ 
グラ ム を 入れ 終っ た ら 
RUN | 改行 | 


と いう コマ ンド (直接 実行 命令 の 一 種 ) で 実行 を 指令 すれ ば よい 


行 番号 行 番号 と し て は 1 一 9999(0 を 許す 機種 や 32000 あ る い は 
65000 ぐ らい まで を 許す 機種 も 少な く な い が ) の 範囲 内 の 整数 値 を 用 い 
る こと が で きる 。. 

プロ グラ ム は 原則 と し て 行 番号 の 順に 実行 され る . 行 番号 は また , 


プロ グラ ム の 修正 , 挿入 。 削除 の 際 の , 位置 の 指定 に 用 いら れる (24 
ペー ジ 参 照 )。 行 番号 は 連続 し た 番号 で な く て も よい (欠番 が あっ て 
も よい )。 そこ で 普通 は 

0, る O, ら 0。, 40, oO, 
と いう よう に 10 と び の 番号 を 付け る *。 





[実習 ] 左記 の 例 を 間接 実行 形式 で 実行 きせ て みよ う . それ に は 

10 LET A=2 改行 | 

2O EET Bー3 

30 LETm CO= ニ A+TB | 改行 | 

40 PRTINT O | 改行 

RUN 改行 

と 入力 すれ ば よい . 行 40 を 入れ た 時 に は 何 も 出 力 さ れず , RUN させ て は じ め 
て 結果 5 が 表示 され る で あろ う . 


玉島 UTO と いう コマ ンド で 「 自 動 番号 付加 」 を 指令 し て お く と, 自動 的 に 
この よう な 番号 を 付け て くれ る 20 ペ ー ジ 参照 . 
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3.3 INPUT 文 


プロ グラ ム は 。 普通 。 


処理 を する 





と いう 構造 を し て いる . 本 草 で は , これ に 従っ て 
入力 の 部 分 の 書き 方 
処理 の 部 分 の 書き 方 
出力 の 部 分 の 書き 方 
の 順に 文法 を 説明 する こと に する 。. 
INPUT 文 の 基本 形 デー ター 入力 の た め に は TINPUT と いう 命 
令 が ある . 最も 単純 な 書き 方 は 


TNPUT 変数 名 





( 例 ) INPUT A 


で ,。 その 変数 の 値 を 入力 せよ , と いう 意味 に な る . 二 つ 以 上 の 変数 の 値 
を 入力 する と き は , 変数 名 を コン マ で 区 切っ て 書く . 
( 例 ) INPUT 双 。Y, 避 
実行 時 の 操作 方 法 T NPUT 文 を 実行 する と 。 入力 要求 を 表す ? 印 
が 表示 され る * の で , キー ボー ド か ら 値 を 入れ る . 数 値 に は , 必要 に 応じ 
て , 符号 。 小数 点 , 指数 部 な ど を 付け る こと が で きる . 一 般 形 は 

+ 闘 徐 部 ・ 小数 部 呈 二 指数 部 

符号 指数 部 の 符号 

で , 指数 部 包 土 々 は 「※X10 や |] を 表す . 
( 例 ) 一 1+EB6 は 一 1※ ぶ 10 

3 . る 2 選 一 1 は 3.2X10 
を 表す . 


* 。 ? 印 の 出 な い 機 種 も ある が 。 カー ソル が 出る の で わか る (処理 中 は カー 
ソル が 消え て いる )。 
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二 つ 以 上 の デー ター を 入れ る 場合 は コン マ で 区 切る . 一 つの TNPUT 
文 ) に 対す る 入力 値 は , 原則 と し て 1 行 で 入れ な けれ ば いけ な い "*。 デー 
ター の 箇 数 が 合わ な いと , 補充 入力 要求 (た と えば 『C-8001 の 場合 だ と 
2 7 印 ) また は 入れ 直し 要求 (た と えば Level--3 の 場合 だ と 
Redo From Start 
と いう メッ セー ジ ) が 出る . 
入力 要求 メッ セー ジ の 出し 方 。 上 記 の 事情 を 考え る と , 入力 の 際 
今 。 何 の デー ター を 入れ だ た ら よ いか 
どこ まで を 1 行 に 入れ な けれ ば いけ な いか 
な どの 情報 を 画面 に 表示 する こと が 望ま し い (そう し な けれ ば 一 般 の 利 
用 者 に は 使え な い ). BASIC に は 。 その た め の メ ッ セ ー ジ を 表示 する 機 
能 が ある . 書き 方 は 次 の と お り . 


TNPUT リリ メッセ ー ジ 『: 変数 名 。 … 。 変数 名 
TINPUT "ABー リ :A。 選 


TNPUT "xx を いれ て く た | さい すす: 文 
TNPUT りあ な た は な ん さい て | すか 『:RN 





この よう な TINPUT 文 を 実行 する と, まず メッ セー ジ が 表示 され , その 右 
に 7?7 果 が 表示 され 。 その 右 に カー ソル が 出る 。 な お 。 機種 に よっ て は ** 
7? 印 の 表示 を 出 き な いこ と が で きる . それ に は 





と 書け ば よい ( : 印 の か わり に 。 印 を 用 いる ). 

その 他 の 方 法 デー ター を 入れ る た め の 命 令 と し て は , REBAD 文 と 
いう の も ある (後述 )、 また, 1 2 回 し か 使わ な い プ ログ ラム で あれ ば , 前 節 
の 例 の よう に , 代入 文 (LBT 文 ) で 書く の も 簡単 で よい . 


* 画面 で は 何 行か に また が っ て も よい . 画面 の 方 は 右端 に 来る と 自動 的 に 
次 の 行 に 移っ て くれ る か ら , か まわ ず 続 け て 入力 する . 文法 上 は 「 | 履行 | を 入 


れる まで が 1 行 」 と し て 扱わ れる . 
玉 末 た と えば Level-3 や Micro-8 
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3. 和 4 代入 文 (LET 文 ) 


代入 文 の 正式 の 書き 方 は 
LBT 変数 名 = 式 
で ある . し か し 大 部 分 の 機種 で は LT を 省く こと が 許さ れ て いる の で 


変数 名 = 式 
と いう 形 で 書く の が 普通 で ある *、 
( 例 ) 芽 選 〒 Oー テ A+ 

C ニ A+ 





これ ら の 文 は 。「= テ の 右 に 書か れ た 式 の 値 を 計算 し て , の 左 に 書か れ 
て いる 変数 に 代入 せよ 」 と いう 意味 に な る 。 
( 例 ) A の 値 が 2,。 の 値 が る の と き 。 代入 文 
CO= テ A 十 B 
を 実行 すれ ば C の 値 は 5 に な る 。. 
[備考 ] 1) 代入 先 の 変数 名 は 必ず = の 左側 に , 式 は 必ず = の 右側 に 書か な け 
れ ば いけ な い .。 し た が っ て ,。 次 の よう な 書き 方 は 許さ れ な い 、 
TL 刀 下 A 二 = テ O 

2 ) 単独 の 変数 また は 定数 も , 広い 意味 で の |「 式 」 の 一 種 と みな され る . し 

だ が っ て 
Li 思 呈 A テ 1 ュ 
な ど と 書い て も よい (「[1 ユ 1」 だ け で も 「 式 ] で ある ). 

3 ) 変数 の 値 は 代入 文 に よっ て 何 度 で も 書き 替え る こと が で きる . その 特別 
な 場合 と し て , 左辺 の 変数 名 が 右辺 の 式 に 現れ て も よい . その 場合 , 式 の 値 を 
計算 する 段階 で は 代入 前 の 値 が 使わ れ , その 結果 が 左辺 の 変数 の 新しい 値 と し 
て 代入 され る (書き 替え られ る ). 

( 例 ) エ の 値 が る の と き 。 代入 文 

ェ エニ エ 十 1 
を 実行 する と 。 まず エ 十 1 (すなわち る 十 + ) の 値 が 計算 さき され, その 結果 3 が 1 
に 代入 きれ る か ら 。 実行 後 の エ の 値 は る に な る . 要する に 。 この 代入 文 は 「 エ 
の 値 を 一 つ ふ や せ 」 と いう 命令 だ と 思え ば よい . 


* 現在 わが 国 で 広く < 市販 され て いる パソ コン の 内 。 LBT の 省略 を 許さ な 
い の は シン クレ ア の Z 双 -81 だ け で あろ う . 
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3.5 変数 名 


画 変数 名 と し て は 次 の よう な 名 前 を 用 いる こと が で きる . 


1 ) 英字 1 字 一 これ は すべ て の 機種 で 使用 で きる 、 

2 ) 英字 1 字 の 次 に 数 字 1 字 を 付け た も の 一 一 一 部 の ポケ ッ ト ・ 
パソ コン を 除く すべ て の 機種 で 使用 で きる . 
( 例 ) V9 


3 ) 英字 2 字 (た だ し , エ TE, TO, ON など, BASIC で 特別 な 意 
味 を も つ 単 語 を 除く ) 一 大 部 分 の 機種 で 使用 で きる *. 
( 例 ) CQ 

4 ) 先頭 は 英字 , 第 2 字 以 後 は 英字 また は 数 字 ( た だ し BASIC で 特 
別 な 意味 を も つ 単 語 を その 綴り の 一 部 に 含ん で は いけ な い ) 
(正しい 例 ) 80A 
(誤り の 例 ) DrF (TE を 含む か らい け な い ) 

ーー これ も 大 部 分 の 機種 で 利用 で きる が , 「 識 別に は 先頭 の 2 文字 
の み が 有 効 ] いい か えれ ば 「 先 頭 2 文字 が 同じ な ら 。 あと が 違っ て い 
て も 同じ 変数 と みな す 」 と いう 扱い を する 機種 が か な りあ る の で 注意 
を 要する **。 
( 例 ) そう いう 機種 ご は XMAX と XMTIN を 区 別 で き な い . 

5 ) 先頭 は 英字 , 第 2 字 以 後 は 英字 また は 数 字 ま た は ピリ オド ( 綴 
り は 自由 ) 一 一 これ は 一 部 の 機種 で し か 使え な い ***。 
皿 記号,。 カナ 文字 , 漢字 な ど は , 普通 , 変数 名 に 使え な い ****。 小 
文字 も 事実 上 , 使用 で き な い (小文字 で 入力 し て も 内 部 で 大 文字 に 変 
換 き され て し まう の が 普通 で ある )、. 


* 3) を 許さ な い 機 種 の 例 : MB6885 

※ ネ ※ [先頭 2 文字 の み 有 効 ] と いう 扱い の 機種 の 例 : VIC1001, PC 
-6001。 PC-8001。 MZ-80 B/C/K。 SORD M223。 APPLE II 

まま 玉 玉 本 書 の 執筆 時 点 で は PC-8801 の み . 

※ ネ ネネ ネ PASOPIA の OA-BASIC は ヵ カナ 文字 の 変数 名 を 許す 。 
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3.6 式 の 書き 方 


演算 子 加減 乗除 を 

十 一 率 ノブ 
で 表す . ベ キ 乗 は へ 印 で 表す * 
( 例 ) ダ " は 又 へ YY で 表す . 


カッ コ 丸 カ ッ コ (  ) だ けが 使用 可能 。 何 重 に 使っ て も よい . 
1 
( 例 ) ー 1 は ユノ ( 文 二 ユノ (文士 1 ) ) で 表す . 


テイ ァ 二 1 
計算 順序 普通 の 数 式 と 同様 に 
カッ コ の 中 を 先 に 計算 する 
加減 算 よ り も 乗除 算 を 先 に 計算 する 
さら に べべ キ 乗 が あれ ば 先 に 計算 する 
と いう 規則 で 処理 きれ る . な お 優先 順位 が 同じ も の に つい て は 
左 か ら 順 に 計算 きれ る 
の が 普通 で ある . 
( 例 ) A ノ B ノ CO は (AZ/ZB)/ ノ CO と 同じ 結果 に な る 。. 


[備考 ] 上 記 以 外 の 記号 , た と えば 

| 。 9%  # 。 $ 並 
な ど は , 普通 の 数 式 に お ける 意味 ( 階 乗 ,。 パー セン ト な ど ) に は 使え な い 。 持 
に 注意 を 要する の は ! お よび % で , これ は 後述 の よう に それ ぞ れ 実数 型 お よび 
整数 型 を 表す 属性 文字 で ある か ら , た と えば 

5 1 59% 
は 「5 の 階 乗 | 5 パー セン ト 」 で は な く 「 整 数 型 の 5 実数 型 の 5」 を 表す . 


幕 除 ( 商 が 整数 で 表せ る 所 まで 割る ) は 位 印 , 祭り は MOD で 表す . 





( 例 ) CA\ せ A を 己 で 整 除 し た 商 を C と する . 
R=P MOD る 2 P を る で 割っ た 祭り を と する . 











* 。 た だ し IMZ-80 で は 1 印 で 表す . ( 例 ) 文人 1Y 
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3.7 組込み 関数 


BASIC で は 次 の 関数 を 使用 で きる ( 注 1). 
種類 数 学 記号 BASIC に お ける 書き 方 
平方 根 ツテ SQR( 引 数 ) 
指数 関数 e テ * 選 XP( 引 数 ) 


自然 対数 logz。 In LOG( 引 数 ) 
正弦 Sin STN( 引 数 ) 


余弦 COS テ CO8( 引 数 ) 
正 接 tan TAN( 引 数 ) 
逆 正 接 arctan テ ATN( 引 数 ) 
絶対 値 | | ABS( 引 数 ) 
整数 化 [*] TNT( 引 数 ) 
符号 SGN( 引 数 ) 





注 1) この ほか に , 
文字 列 処 理 の た め の 関 数 
乱数 発生 の た め の 関 数 
状態 を 調べ る た め の 関 数 
な ど が ある . 
注 2) 自然 対数 を LN(X ) で 表し , 常用 対数 を LOG( 又 ) と する 機種 も あ 
る (だ た と えば MZ-80B/C/K。 SORD M-23 な ど ). 
注 3) 引数 の 単位 は ラジ アン と し て 扱う 。 度 を ラジ アン に 直す に は 
ヶ /180 三 0.0174533 
を 掛け れ ば よい . 
注 4) 単位 は ラジ アン 。 値 の 範囲 は ーz/2-- ァ ヶ /2 に な る 。. 
注 5) * を 越え な い 最大 の 整数 . 
( 例 ) TINT(3.14 ) は 3 TNT( 一 3 .14 ) は 一 4 に な る 。. 
注 6) x く <0 な ら ば SGRN() の 値 は 一 1 に な る 
ァ デ テー0 な ら ば / O / 
ァ >0 な ら ば / 十 ユ / 
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3.8 PRINT 文 


結果 を 表示 する に は PRTIKRT 文 を 用 いる . 最も 簡単 な 使用 法 は 
PRTNT 変数 名 

で ある (28 ベ ペー ジ の 例 委 照 ) が , 一 般 に 式 を 書い て も よい 、 
PRTINT 式 

( 例 ) PRTNT A+ オ B 

ニニ っ 以上 。 列記 したい 場合 は 。 コン マ ま た は セミ コロ ン で 区 切っ て 書 


く 。 
( 例 ) PRTINT A,B, 〇 C+ 

PRTRNT A:B: O+ 十 D 
セミ コロ ン で 区 切っ た 場合 は 。 前 の 値 に すぐ 続け て ( 間 を あけ ず に ?) 
學 の 値 が 出力 され る . それ に 対し コン マ で 区 切っ た 場合 は , 一 定 の 位 
置 ま で スキ ッ プ し て か ら 次 の 値 が 出力 され る 。. 





10 A ニ 1 る . う 3 

る く O B テ 5.67 

ら 0 C テ ー980 

40 PRTNT AB,C 

o0 PRINT これ は 間 を 1 行 あ ける た だめ 


60 PRTNT Ai:B:C 
の 実行 結果 は 次 の よう に な る 。 
1 だ 。 さぶ つう 。 ょ らら ア ー8900 
1 で 。 ふ スー コロ 。 ら Z ーーB ワ () 
(上 は コン マ で 区 切っ た 場合 , 下 は セミ コロ ン で 区 切っ た 場合 で ある ) 


* た だ し 数 値 デ ー タ ー の 出力 の 場合 , 1 字 分 の 空白 が 入る 。 また 先頭 は 符 
号 で ある が 。 十 印 の か わり に 空白 が 出力 され る . その た め 正 数 の 前 に は 2 字 分 
の 空白 が 入る こと に な る (上 の 例 の 12 .5 と 5 .67 の 間 が それ で ある )。 

まま 位置 は 機種 に より 異な る が 。, 普通 , 15 字 ぐら い の 間 隔 で 設定 され て い 
る 。 
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改行 と 非 改 行 PRTNT 文 と 改行 の 関係 は ,「 特 に 指定 し な い 限 り , 
1 笛 の PRT エ NT 文 が 出力 の 1 行 に 対応 する 」 と いう の が 第 1 原則 で あ 
る 。 

( 例 ) A と 選 と CO を 1 行 目 に 。 D と 巨 を 2 行 目 に 出力 し た けれ ば 
PRTNT A,B,O 
PRTINT D, 選 

と すれ ば よい . 


同じ 行 に 続き を 出力 し た い 場 合 は , PRTRNT 文 の 最後 に コン マ ま た 
は セミ コロ ン を 書い て お く . 左 の ペー ジ で 述べ た 規則 と 同様 に , コン 


マ な ら ば 一 定位 置 ま で スキ ッ プ し 。 セ ミコ ロン な ら ば 間 を あけ ず に (た 
だ し 前 ペー ジ の 脚注 * 参照 ) 続き が 出力 され る . 





( 例 ) PRTINT A, 
” は PRTNT A,B と 同等 . 
PRTNT B 


逆 に 一 つの PRTRNT 文 の 途中 で 改行 きせ る こと は 。 不 可能 で は な い が *。 
プロ グラ ム の 明快 き を 損ね る の で 。 あま り 使 わな い 方 が よい . 

な お 。 以上 の よう に し て 定まる 1 行 の 文字 数 が 画面 の 幅 (1 行 に 表示 
で きる 文字 数 ) を オー バー する 場合 に は ,。 は み 出 す 直 前 の 数 値 の 区 切り 
の 所 で 自動 的 に 改行 きれ る . 


見 出し の 付け 方 見 出し な どの た め に 文字 列 を 出力 し た い 場 合 は , 


出力 し た い 文 字 列 を 二 重 引用 符 (! 印 ) で 囲ん で ,。 PRTRNT 文 の 出力 
項目 の 所 に 書く . 





( 例 ) PRINT 『 き ょ り は り :A:i VUkm リ ll 
その 出力 例 (A の 値 が 101 . 6 の 場合 ) 


きょう 9 101。6 km 
出力 され る 数 値 の 書式 。 符号 や 小数 点 を 含め て 8 桁 ら いで お さま 


る 数 値 は その まま の (普通 の ) 形 で 出力 され , それ で お さま ら な い 数 値 
は 指数 部 付き の 形 ( 土 へ . へ へ へ へ ム へ 昌 土 へ へ ) で 出力 され る . 


※ 出力 項目 と し て 改行 コー ド CHR$(153 ) を 書け ば よい . 
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う . り 9* PRINT USING と TAB 


前 人 節 で 説明 し た 出力 方 法 は , 出力 書式 の 指定 が 不要 な の で 簡単 で ある 
が 。 場合 に よっ て は 「 も っ と 手間 を か け て も よい か ら , きめ の こま か い 
書式 指定 を し て , こち ら の 思い どおり の 形 で 出力 し た い 」 と いう こと も 
ある . その よう な 場合 は PRTNT USTNG 文 と TAB を 用 いる と よ 
い 。 

PRINT _ USING 文 これ は 書式 指定 付き の 出力 文 で , 次 の 要領 で 
書く . 

( 例 ) PRTNT USTING リ 十 #.# 半 # 「:Ai 是 
これ は , 「A と 巳 を 
符号 は 数 値 の 前 に 付け る .。 正 は 十 , 負 は 一 で 表す 
整数 部 に 2 桁 と る 
左 か ら 4 字 目 に 小数 点 を 打つ 
小数 部 に 3 桁 と る 
その 右 に 1 字 分 の 空白 を 入れ る 
と いう 形 で 出力 せよ 」 と いう こと を 表す 
[備考 ] 1) 符号 の 位置 に 「#」 を 書く と , 正 の 場合 の 符号 表示 が 十 印 で な く 空 
白 に な る 。 
2 ) 符号 を 右 に 付け る こと も で きる . それは 十 か ー を 右 に 書く こと に よっ て 
指定 する . 「 一 ] 印 は 上 記 1 ) と 同様 ,「 上 サ プ レ ス 」 の 意味 . 
( 例 ) PRTNT USING リ 村 村 村 . 半 間 十 り : 文 
3) 整数 値 と し て 右 づ めで 表示 し た い 場 合 は 「 .] 印 は 不要 . 
( 例 ) PRTNT USTNG リ 一 村 ### リ :R 
4 ) 3 桁 ご と に コン マ を 入れ る こと も 可能 . 
( 例 ) PRTNT USTNG リ 二村 半井 半 。 韻 半 せ 「-TNGAKU 
5 ) 指数 部 付き の 形 (浮動 小数 点 表 示 ) で 出力 し た い 場 合 は , 右 に 


ペン ペンペン ヽ 


を 付け る 。 指数 部 は 包 土 メメ の 形 で 出力 され る の で 常に 4 桁 必 要 で ある . 


ま 初心 者 は に こ を と ば し て 先 に 進ん で よい . 
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[プロ グラ ム 例 と 出力 例 ] 
10 A=234.56 


20 PRTNT USTING リ 十 村 杜 半 リーA 
30 PRINT USTNG リ 半 半 . 半 リト A 
40 PRTINT USTNG リ 十 計 村人 半 せり リ ・A 
50 PRTINT USTNG リ # 半 せ リーA 
60 PRTINT USTNG「 十 せ # せ キリ ・A 
70 PRINT USTING「 半 寺 半 半 装 半 せ リーA 
80 PRTINT USTNG 十 本 せせり <A 
RUN 
+ キ だき らら 
で る 4 人 の 
+ 人 で る 人 。 6 
っ マオ 4. ら MB-6890 
つらさ に よる 出力 例 


orr rm 
デー こよ 


る キ で さら DO 


最後 の % 印 は 桁 数 オー バー の た め 指 定 書 式 で 出力 で き な い こと を 表す . 
TAB タイ プラ イタ ー に 呈 A 選 と いう キー が ある . tabulate す な わ 
ち 作 表 の た め の 機 能 で 、 この キー を 押す と , あら か じ め 指 定 し て あっ た 
文字 位置 まで スキ ッ プ する . BASIC の TAB も 機能 は 同様 で , PRTR 呈 
文 の 出力 項目 の 一 つと し て TAB( ヶ ) と 書い て お く と, 第 み ヵ 文字 位置 
( 行 の 左端 を 0 と し て 数 える ) まで スキ ッ プ し ,。 次 の 出力 項目 は そこ か 
ら 出 力 さ れる . た だ し , 現在 位置 より 左 に も どる こと は で き な い . 

( 例 ) 


10 PRINT "OO1234567890123456789『 
ぐ 〇 O AA テー ツ 5 る 3 

30 PRT1INT AiTAB(12) :A 

40 PRTNT TAB(3):A:iTAB(12):A 

50 PRTNT TAB(5):AiTmAB(12):A 


RURN 
Q1234567B901234567B9 

ー75 ー7 生 さ 

ー75 さ ー フ 3 


ー プ は ー プ アロ は 
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3.10 READ 文 と DATA 文 


これ まで の プロ グラ ム 例 で は ,。 デー ター の 入力 方 法 と し て , 
入力 の 指示 を エ NPUT 文 で 書く 
実際 の デー ター は 実行 時 点 に 入れ る 
と いう 方 法 を と っ て きた が , も う 一 つの 方 法 と し て 
デー ター を プロ グラ ム と 一 緒 に 入れ て お く 
その 入力 指示 を 民 思 AD 文 で 書く 
と いう こと が で きる . すなわち 。 入力 すべ き デ ー タ ー を 
DATA 1 番目 の デー ター,。 2 番目 の デー ター,。… 
(これ で 書き きれ な けれ ば 。 同じ 形式 で 何 枚 で も 並べ る ) 
の 形 で プロ グラ ム の 中 (普通 は プロ グラ ム の 最後 の 所 ) に 書き , それ を 
READ 文 で 読む READ 文 の 書き 方 は TNPUT 文 と 同じ 形 
READ 変数 名 , 変数 名 。 … 
で ある . TNPUT 文 と RBAD 文 の 違い は 
TNPUT 文 は , 実行 時 に 端末 機 か ら デ ー タ ー を 読む 
RBAD 文 は 。 DATA 文 で 書い た デー ター を 読む 
と いう 点 に ある . DAPTA 文 と R 選 AD 文 の 組合 せ に よる 方 法 に は 次 の よ 
うな 利点 が ある . 

1 ) 統計 の 計算 な どの 場合 , 同じ デー ター を いろ いろ な 手法 で 解析 し 
た いこ と が ある .。 そう いう と き 同 じ デ ー タ ー を 何 度 も 入力 し な いで 済む . 

2) デバ ッ グ の と き 。 テス ト ・ デ ー タ ー を 何 度 も 入れ る の は めん どう 
で ある が , この 方 式 な ら 一 度 入 れる だ け で よい . 

3 ) この 方 式 だ と , RBSTOER 選 文 を 用 いて 「 い ま の デー ター の 最初 
の 位置 に も どれ 」 と いう 指示 が で きる . こう し て 。 一 つの プロ グラ ム の 
中 で 。 同じ デー ター を 何 回 も 読む ゆ むこ と が で きる . 
要する に , TNPUT 文 で 入力 し た デー ター は , すぐ 消え て し まっ て あと 
に 残ら ちら ない の に 対し 。 DATA 文 で 書い た デー ター は プロ グラ ム の 一 部 
と し て 記憶 装置 に 残っ て いる の で 。 同じ デー ター を 何 度 も 利用 する こと 
が で きる わけ で ある 。 
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3. 1 1 REM.STOP. END 


プロ グラ ム の 中 に 注釈 (説明 , 覚え 書き ) を 書い て お く と , あと で 

読む と き , わか り 易 く て よい . 注釈 は REGM 文 の 形 で 書く *. 書き 方 は 
REM 注釈 

で , 注釈 と し て は 任意 の 文字 列 ( 英 数 字 , カナ 文字 , 記号 , 空白 な ど , 


何で も 自由 に 使用 で きる . た だ し [| 改行 | を 除く .) を 書く こと が で き 
る . 

REBM 文 は プロ グラ ム の 中 の どこ に 書い て も よい 。 た だ し (後述 の ) 
マル チ ステ ー ト メン ト に 関し て は 注意 が 必要 で ある (次 項 参 照 ). 





( 例 ) プロ グラ ム の 冒頭 に は タイ トル その 他 を 書い て お く と よい . 
10 REIM ネネ 玉 玉 末 玉 未 米 玉 玉 玉 玉 未 玉 玉 玉 来 末 氷 
2O REM ネネ ほう て いし き f(x) 三 O を と く *※ 
30 REM * (ニュ ー ト ン ほ う )  * 
40 REM ※ version 1,1 玉 


oO0 RM 玉 玉 末 来 玉 来 玉 玉 玉 米 玉 玉 玉 玉 来 玉 末 玉 玉 
8STOP と ND は ,。 読ん で 字 の ご と く , STOP は 「 止 まれ 」, ERN 
D は 「 実 行 終了 」 を 意味 する . STOP は 一 時 停止 で あっ て ,。 コマ ンド 
OONT | 改行 


を 入れ れ ば STOP の 次 の 文 か ら 再 開 (続き を 実行 ) させ る こと が で き 
る .。 それ に 対し 。EBND は 終点 で あっ て ,。 そ の 続き は 無い . 違い は それ 
だ け で ある **. 





*※ 。 REM は remark の 意味 . 

*※ ネ ネネ FORTRAN に お いて は 。 BND が 「 プ ログ ラム の 最後 の 行 ]」 と いう 特 
別 な 意味 を も っ て いる が ,。 BASIC の 到 ND は その よう な 意味 を も た な い . し た 
が っ て 。 選 ND を 何 箇所 に 書い て も よく ,。 一 つも 書か な く て も よい 。 これ まで 
に 例示 し た プロ グラ ム の よう に , STOP も END も 書か な く て も 。 行 番号 最大 
の 文 に 来れ ば 自然 に 実行 終了 と な る . 
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3.12 文法 細 則 


以下 で 説明 する 事項 は , 知ら な けれ ば 知ら な く て も 済む こと で ある が , 
覚え て お け ば 役に立つ . 


変数 の 初期 値 は 0 プロ グラ ム の 実行 開始 時 点 に お いて ,。 すべ て 


の 変数 の 値 は 0 に な っ て いる . 


( 例 ) 何 も 代 入 し な いで PRTIRNT A を 実行 すれ ば O が 出力 され る . 





文中 の 空白 は 無視 * 本書 で は , プロ グラ ム を 読み 易く する た め , 
文 の 中 に 空白 を た くさ ん 入れ て いる が 。 BAS!C で は (REBM 文 お よび 
2 重 引用 符 で 囲ま れ だ 部 分 を 除き ) 空 白 は すべ て 無視 きれ る (し た が っ 
て , 空白 は 入れ て も 入れ な く て も よい ) と いう こと に な っ て いる *。 





( 例 ) 10 INPUTP A, 刀 と 101INPUTA,B は 同じ 
2O 選定 CO デ A 二 BB と 2OLETOC= テ A 二 は 同じ 
S0 PRINT CO と SO0PRTINTC は 同じ 





省略 記法 記号 ? と! は 命令 の 略記 法 に 用 いら れ , 
2 印 は PRTNT 
「。 印 は REM 
を 表す . 


[解説 ] ? 印 は 直接 実行 形式 の 場合 に よく 用 いら れる . た と えば , 変数 A の 内 
容 (現在 記憶 きれ て いる 値 ) を 調べ た いと き に 

2 4A 改行 
と や っ て 表示 させ だ た だり, ヶ /3 の 値 を 知り た いと き に , 電卓 が わり に 

2 858.1416 ノ 3 
と いう ぐあい に 用 いた だ たり する. 一方, REBM の か わり に を 用 いる の は , 英語 
や ロー マ 字 で 注釈 を 書 に た 場合 。 REM が 注釈 の 文章 の - 一 部 の よう に 見 える こ 
と が ある の で 。 それ を 避け る た め 。 と いう の が 一 つの 理由 で あり 。 また 「 注釈 
"と いう 形 で 書け ば , いか に も 注釈 らし く 見 える 。 と いう 理由 も ある . 





* ま 。 た だ し PC-8801 は 例外 。 
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マル チ ・ ス テー トメ ント 


ー つ の 行 に 二 つ 以 上 の 文 を 書く こと が で きる . こ れ を マル チ ・ ス テー 
トメ ント と いう 二 つ 以 上 の 文 を 書く 場合 は 支 の 聞 を コロ ン で 区 切 


クッ 


る や 。 


ュ テ プー デン 


( 例 ) 10 TNPUT A, 選 : PRTINT A+ 
行 番号 ー つ の 文 区 切り 記号 も う 一 つの 文 





[解説 ] 本 書 で は , これ まで 常に ,。 一 つの 行 に -- つ の 文 を 書い て きた . それ が 
伝統 的 な BASIC の 標準 的 な 書き 方 で ある . 1 行 1 文 な ら ば , すべ て の 文 に 行 
番号 が 付い て お り , それ に よっ て 編集 し た り , 行先 を 指示 (5 章 で 説明 する ) 
し た りす る こと が で きる 。 初心 者 は な る べく そう いう 形 で 書く 方 が よい と 思 
う . 

し か し , 少し 慣 て し てき て , ある 程度 長い プロ グラ ム を 作る よう に な る と ,。 1 
行 に いく つも の 文 を 書き た く な る . それ は 次 の よう な 理由 に よる 。. 

1) ディ スプ レイ の 1 画面 に な る べく だ た くさ ん の 文 を 表示 で きる 方 が デ 
バッ グ を し 易い . 

2 ) 処理 の 内 容 に よっ て は 。 横 に 並べ て 書く 方 が 自然 な 場合 が ある . た と え 
ば , 複素 数 の 計算 を する と き 。, 実数 部 の 処理 と 虚数 部 の 処理 を 並行 し て 書く と 
見 易い . 

3) 他 の プロ グラ ミン グ 言 語 な ら ば 一 つの 文 で 書け る の に BASIC だ と 複 
数 人 の 文 で な いと 書け な いこ と が ある .。 そう いう と き 、。 一 つの 機能 的 まとまり 
を 示す た め に 1 行 で 書く と 見 易く な る . 

4) 1 行 1 文 に する より も 。 マル チ ・ ス テー トメ ント に する 方 が 。 記憶 場所 
を いく ら か 節約 で きる . 

5 ) 文 の 挿入 の 一 手段 と し て 使え る 
[注意 ] REM 文 と 後述 の E 文 に 関し て は 「 行 の 終り まで を 一 つの 文 と みな 
ます 」 と いう 扱い に な っ て いる の で , REBM 文 や の 右 に マル チ ・ ス テー トメ ン 
ト の 形 で 他 の 文 を 書く こと は で き な い . 

( 例 ) 10 REM "example : TNPUT A 
の 「TNPUT Al」 は 注釈 の 一 部 と みな され る . 
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3.13 例題 お よび 演習 


例題 1 一 一 一 一 和 差 積 商 
ニー つ の 数 値 を 読み 込み 。 その 和 , 差 , 積 。 商 を 計算 し て 表示 する プ 
げ グラ ム を 作れ . 













[解答 ] 和 , 差 , 積 , 商 を 変数 名 WA , SA , SEKT , SYOU で 表す こと 
に すれ ば ,。 プロ グラ ム は 次 の よう に な る . 

10 TNPUT A,B 

20 WA= テ A 十 BB 

30 SA= テ AB 

40 SEK エ ーA*B 

50 SYOU= テ A ン ノ B 

60 PR1INT WA,SA,8SEBKT , SYOU 
[ 別 解 ] PRTINT 文 に 式 を 書く こと が で きる の で ,。 それ を 利用 し て 次 の 
よう に 書い て も よい . 

10 1TNPUT A,B 

60 PRTRNT A 十 B。A 一 B ,A*B 。A ノ 己 
[ 別 解 ] 入力 要求 表示 や 結果 の 見 出し を 付け れ ば , さら に 使い 易い プロ 
グラ ム に な る 。. 

10 TNPUT "A= リ LA 

20 INPUT "BB=" :B 

30 PRTNT "A 二 = テリ: A 十 己 

40 PRTNT "AB= リ : AーB 

50 PRTINT "A* 量 三 り : A* 己 

60 PRTINT 『 り A/B= リ : A ノ 己 
[解説 ] 二 重 引用 符 で 囲ま れ た 部 分 は , 入力 要求 表示 お よび 見 出し の た 
め の 文 字 列 で ある 。 それ に 続く セミ コロ ン は 「 導 を あけ ず に すぐ 続け て 
表示 する 」 こと の 指示 で ある . 
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例題 2 円 の 面積 
半径 ヶ の 値 を 読み 込み , 円 の 面積 さき ニ ァ ヶ * を 計算 し て 出力 する プロ 





グラ ム を 作れ 


[解答 ] ァ と いう 文字 また は PT と いう 綴り が 円 周 率 を 表す 機種 も ある 
が (た と えば MZ-80、M-23 な ど ), 一 般 的 に は ァ ヶ の 値 を 数 値 と し て 書く 
必要 が ある . パ ソコ ン 内 部 の 演算 桁 数 は , 普通 , 約 6 桁 で ある か ら 3.14159 
あたり まで 書け ば 十分 で ある . 

10 TNPUT 


る 20 8 デー3.1 ユ 44159*※ 民 ^ る 
っ う 0 PRTINT 8 


[ 別 解 ] 入力 要求 表示 , 結果 の 見 出し を 付け る と 次 の よう に な る 。. 


10 TINPUTD は ん けい (cm) = テリ : 民 
20 8ー3 る 3.14159*R べ へ る 
30 PRTINT "めん せき = テリ :SWUcm へ る 『! 


[ 別 解 ] z を 使え る 機種 で は, 大 い に そ れ を 活用 する と よい . 以下 は MZ 
-80 の た め の プ ログ ラム 例 で ある . 
10 TINPUT "R= リ : 民 
20 PRTNT "8 : を 玉 R 人 る 
昌 四 由 昌 出 問 題 晶 HHHHHHHIHHHHHIHIHHHIHHHHHHHHHHHHHHIHHIHIIHHHIHHIHHHIHHIHHIHHHIHHHHHHHHHIHIHHHHIIHIIHHIHHHHH 四 胃 
3.1 (人 台形 の 面積 ) 台形 の 底辺 の 長き の , の お よび 高 さん を 読み 込み 。 面積 
ー テ ヶ (<+ の ん 


を 計算 し て 出力 する プロ グラ ム を 作れ . 


3.2 (ピタ ゴラス の 定理 , 三平 方 の 定理 ) 9 
直角 三角 形 の 正 角 を は させ 2 辺 の 長き 2。 を 読み 込み 。 残る 1 辺 の 長き 
c 三 yg の“ 十 の 


を 計算 し て 出力 する プロ グラ ム を 作れ . 
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3.3 (三角 関数 ) の =30'" に 対す る 


Stmn の COS の tan の 
の 値 を 計算 し て 出力 する プロ グラ ム を 作れ . も し も パソ コン を 実際 に 使用 で き 
る な ら , 上 の プロ グラ ム を 実行 し , 厳密 な 値 
1 3 ツ 3 
2 3 


2 
(まだ た は 電卓 に よっ て 求め た 結果 ) と 比較 せよ . 
[ヒン ト 」] 度 か ら ラ ジア ン へ の 変換 を 忘れ る な . 


3.4 ( 視 半 径 ) 地球 か ら 月 まで は 約 384400 km。 月 の 半径 は 約 1738 km で 
ある . 月 の 視 半 径 ( 下 の 図 の 角 CAB) の を 求め よ . 


ーーーーーーーーーーーーー (ナー 


[ヒン ト ] AB と BC が 既知 で ある か ら 。 簡単 の た め 角 ABC が 直角 と 考え 
れ ば *。 計算 式 は 次 の よう に な る . 


_ 1738 
tan の 三 s84400 








* ー _1738 
し た が っ て の =arctan 38440 


3.5 (立方 根 ) 体積 "の 立方 体 の 1 辺 の 長き さ Z を 計算 する プロ グラ ム を 
作れ . 

[ヒン ト ] = ソニ の を 計算 し て 出力 すれ ば よい (BASIC の べ キ 乗 
演算 の 指数 部 は 整数 で な く て も よく 。 そこ に 式 を 書い て も よい )。 


体積 
レ 


* ネ 上 央 密 に いえ ば 角 ABC は 直角 で な く ,。 角 ACB の 方 が 直角 で ある か ら , 
arcsin を 用 いる べき で ある が 。 結果 は 大 差 な い . その 差 を 問題 に する な ら 「 地 
球 上 の どこ で 見 る か | も 考慮 する 必要 が ある . な お 。 arc tan の 計算 方 法 は 156 


ペー ジ 参 照 . 


4 制御 文 一 枝分かれ と くり か え し 


4.] 概 説 


BASIC の 文 は 原則 と し て 行 番号 の 順に 実行 きれ る が , 
ある 行 ま で スキ ッ プ し た い (また だ は, ある 行 に も どり た い ) 
条件 に 従っ て 分 岐 し ,。 それ ぞ れ 別 の 処理 を し た い 
プロ グラ ム の 一 部 分 を くり か え し 実行 し た い 
と いう 場合 が ある . その た め に ,。 BASIC に は 次 の よう な 文 が ある 。 
まず , 指定 し た 行 に 進む 文 と し て は 


GOTO 文 ーーー (行き っ ぱな し ) 
GOSUB 文 ーー 行っ て も どっ て く < 
分 岐 に 関し て は 
TT 文 ーー 条件 式 に よっ て 分 岐 
ON 文 一 ーーー 番号 に よっ て 分 岐 
くり か え し に 関し て は 
FOR NB 文 T 文 ーー 一 定 回 数 の 反復 
RBP 包 AT UNTT エ TL 文 一 ーー 条件 が 成立 する まで 反復 
WHTTLE--WEBND 文 ーー 条件 が 成立 し て いる 間 。 反復 


が ある 。 以上 の 内 , 

GOTO GOSUB 一 RBTURN TE FOR--NEE 文 〒 
が 基本 的 で ,。 すべ て の 機種 で 使用 で きる . それ 以外 の 文 は , 主として , 
プロ グラ ム の 構造 を 単純 に し , 意味 を 明快 に する 目的 で 設け られ だ た も の 
で あっ て , それ を 使用 で き な い 機種 も ある が 容易 に 他 の 文 で 代行 する こ 
と が で きる . 
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4.2 GOTO 文 と ラベ ル 


無 条件 に 特定 の 行 ま で スキ ッ プ し た り ,。 も どっ た だ りす る に は GOFTO 
文 (英語 の “Go to 一 -.”" の 意味 で ある か ら [goutu :] と 読む BASIC 
で は GO と TO の 間 に 空 碧 を 入れ な い の が 普通 ) を 用 いる . 


書き 方 は 


GOFTO 行先 の 行 番号 
( 例 ) GOTO 100 「 行 番号 100 の 文 に 行け と いう 意味 





( 例 ) プロ グラ ム の 最後 の 所 か ら 最 初 に も ど 

る よう に GOTO 文 を 書い て お け ぱ 停止 ボタ - A , B を 入力 

ン を 押す まで 何 回 で も 反復 実行 で きる . 

( 例 ) 10 TLNPUT !A= テ = リ :A 
20 TNPUT "モニ リ " : 吾 
3③0 CC= テ A+ 選 
40 PRTNT "A+ 士 王 =":O 
50 GOTO 10 

ラベ ル 機種 に よっ て は , 行先 を , 行 番号 で な し に ラベ ル で 指定 す 
る こと が で きる .。 その 場合 は , 行先 の 行 に ラベ ル を 付け て お いて 
GOTO ラベ ル 
と 書け ば よい . ラベ ル の 書き 方 は 機種 に よっ て 異な る . 





N。。BASIC HuBASIC 
ラベ ル の 定義 * 文字 列 LABEL "文字 列 ! 
GOTO 文 GOTO ま * 文 字 列 GOTO 『 文 字 列 『 
備考 字数 255 ま で 可 


文字 列 変数 で も よい 
GOTO *U8A GOTO "USA『" 


LABEL "USA" 
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4 3 GOSUB--RETURN 


これ は , 行っ て 処理 を 行なっ た あと ,。 も と の 所 に も どっ て き て 続き 
を 実行 し た い 場 合 に 用 いる 文 で ,。 次 の よう に 書く *. 
GOSUB 行先 の 行 番号 
ラベ ル を 使用 で きる 機種 な ら ば 次 の よう に 書く こと も で きる . 
GOSUB 行先 の ラベ ル 
この 文 を 実行 する と , 行 番号 また は ラベ ル で 指定 され た 所 へ 飛び , そ 
この プロ グラ ム を 実行 し , 
RBTURRN 
と いう 文 に 達する と ,。 も と の 所 (正確 に いえ ば GOSUB 文 の 次 の 文 ) 
に も どる 。 


RETURN 





副 プ ログ ラム 


主 プ ロ グラ ム 、 


[備考 ] 他 の プロ グラ ミン グ 言 語 (た と えば FORTRAN や PASCAL) 
と 違っ て , BASIC の 副 プ ログ ラム は 変数 , 行 番号 な ど が 主 プ ログ ラム と 
全部 共通 で あり , 一 部 の 機種 以外 で は , 引数 を 書く こと が で き な い . 他 
の 言語 の 副 プ ログ ラム と 同 程度 の 機能 が 必要 な 場合 に は , ディ スク 


BASIC の チェ イン ・ ジ ョ ブ の 形 を 用 いる と よい . 


※ ネ SU は subroutine の 竜 。 
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4 4 MEF 文 に よる 分 岐 


ある 条件 の と きだ け 。 指定 し た 所 に 進む お よう に する に は 。 次 の よう 
に 書く . 





TE 条件 式 呈 HEN 行先 

これ を 次 の よう に 書く こと も で きる *. 
TE 条件 式 GOTO 行先 

条件 が 成立 し な い 場 合 の 行先 を 指定 する こと も で きる **。 書き 方 は 
TE 条件 式 THEN 行先 LSE 行先 

で ある . 行先 は 行 番号 また は ラベ ル ( ラ ベル を 使用 で きる 機種 の 場合 ) 

で 指定 す る . 

TE 中 HEBN。 TEE-ー-GOTO 


ーー テ 指定 され た 行先 に 進む 


NO 


次 の 文 に 進む 
TE 中 BN て BL8 世 


条件 式 成立 ? つっ 


中 HEN の 行先 へ BL8S 到 の 行先 へ | 


( 例 ) エ TE A=B GOTO 100 
TE C く D THEN 300 BLSB 500 











*※ PC-6001 な どの 小型 パソ コン を 除け ば だ いた い 使 用 で きる よう で ある 。. 
ネネ 率 これ も 上 記 * ネ と 同様 で ある が 。MZ-80B/C/K は HuBASIC で は な い 
と 使え な い . 
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4.5 条件 式 の 書き 方 


mm 条件 式 と し て は 次 の よう な も の が 書け る . 

1 ) 二 つ の 式 を 等 号 ま た は 不 等 号 で 結ん だ も の . 
( 例 ) A=B  M+1 ユ >N ABS( 呈 ) <O .01 
た だ し 。 等 号 ,。 不 等 号 は 次 の よう に 書く . 


普通 の 数 学 記号 BASIC の 書き 方 * 
等 し い 一 ーー 
等 し く な い 子 <> > ぐ 
より 小さ い < ぐ < 
等 し いか まだ は 小さ い 議 < まだ は = テ ぐ < 


まだ た は = テン > 


IM 
V 
| 


等 し いか まだ は 大 きい 
より 大 きい > > 

2) 等 式 ま た は 不等式 (すなわち 上 記 1 の 形 ) に (必要 な ら ば ) KR 
OT を 付け 。 それ ら を AND や OR で 結ん だ も の **。 だ た だし, 


AND は 「 か つ 」 両方 と も 成立 する こと を 要求 
OR は 「 ま た は 」 少な く と も 一 - 方 が 成立 する こと 
NOT は 「 で な い 」 否定 

を 表す . 


( 例 ) A= ニ 0O OR B=O 
3 ) 上 記 2 ) の 形 を カッ コ で 囲み , (必要 な ら ば ) NOT を 付け 。 そ れ 
ら を AND や OR で 結ん だ も の . な お , カッ コ を 省略 し た 場合 に は 
NOT AND OR_ 
の 順に 結合 され る . ーー 
( 例 ) NOT A OR B AND C は 次 式 と 同等 


(NO A) OR (B AND O) 





* 左 が 正式 の 書き 方 で ある が 右 の よう に 書く こと を 許す 機種 も 多い . 
※※ 一 部 の 機種 で は 使用 で き な い . 
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_ この 形 を 使用 で き 
4.0 IF 文 に よる 場合 分 け 処 理 な い 機 種 も ある . | 


プロ グラ ム の 流れ に は 。 枝分かれ し て ,。 それ ぞ れ の 処理 を 行なっ て , 
また 合流 する 。 と いう 形 が よく ある 。. 





^ 条件 式 成立 ? 


次 の 処理 に 進む 


その よう な 場合 , 処理 が 比較 的 簡単 (短い プロ グラ ム で 書け る ) な ら 
ば それ を TE 文 の 中 に 書く こと が で きる . 書き 方 は , 
TE 条件 式 呈 HEEN 処理 A ELS 世 処理 
また は その 後半 (EELSE 以 後 ) を 除い た 形 
TE 条件 式 呈 〒HEN 処理 A 
で ある . ここ で 処理 A と 書い た の は 「 条 件 式 が 成立 し た と き に 実行 す 
べき プロ グラ ム |」, 処理 B と 書い た の は [「 条件 式 が 成立 し な か っ だ た だ とき 
に 実行 すべ き プ ログ ラム 」 の こと で 。 実際 に は 
ー つ の 文 
まだ は 
ゅ いく つか の 文 を コロ ン (: 印 ) で 区 切っ て 1 行 に 書い た も の 
の 形 で 記述 す る . 
( 例 ) エ EE 又 ぐ O 呈 旨 BN YーO ELS 包 Y テ 文 
TE 、N ニ =1 呈 HEBN エーO : JO : =O 
TE A ぐ B 呈 HEBN PRTNT A:ETLSEE PRTNT 選 
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4./ ON-GOTO, ON 一 GOSUB 


一 度 に だ た くさ ん の 枝 に 分 岐 し た いこ と が ある 。 


1/ アア 


1 


番号 を キー (選択 の 基準 ) と し て この よう な 枝分かれ を 行なう に は , 


ON 番号 GOTO 行先 ぁ 行先 。 タ >” 行先 , 


と いう 文 を 用 いる と 便利 で ある . これ は 
番号 が 1 な ら ば 行先 , に 行け 
2 行先 > 


2 行先 。 
と いう こと を 表し て いる . 行先 は 行 番号 また は ラベ ル (ラベ ル を 使用 
で きる 機種 の 場合 ) で 指定 する . 





( 例 ) ON GOTO 100,3800,1750 

番号 の 所 に は 式 を 書い て も よい . 

( 例 ) ON N 一 40 GOTO 200,280,170 

式 の 値 が 整数 に な ら な か っ た 場合 に は 四捨五入 に より 整数 化 さ れる . 
その 結果 が 1- 以外 に な っ た 場合 (いい か えれ ば , 該当 する 行先 が 無い 
場合 ) は 「 次 の 文 に 進む 」 と いう 扱い に し て いる 機種 が 多い よう で ある . 


同様 に 


と いう 書き 方 も で きる .。 この 場合 は 。 番号 で 選ば れ た 行先 に 進み 。 そ 
この プロ グラ ム を 実行 し 。 REBTURN 文 に 到達 する と そこ か ら も と の 
所 (ORN 文 の 次 の 文 ) に も どっ て くる 。. 
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4 8 FOR-NEXT 


一 定 回 数 の くり か え し を 行なう に は OR 文 を 用 いる . これ は 次 の 
形式 で 書く . 
FOR 制御 変数 名 = 始 値 TO 終値 STEP 増分 
これ は 「 制 御 変数 の 値 を 始 値 か ら 終値 まで 増分 ずつ 変え て , 以下 の 部 
分 を くり か え し 実行 せよ 」 と いう 意味 に な る . 増分 1 の 場合 は 省略 し 
て 
FOR 制御 変数 名 ー 始 値 TO 終値 
と 書い て も よい . くり か えす 部 分 の 最後 に は 
NEXT 制御 変数 名 
を 書く . これ は 「 制 御 変数 の 値 を 次 の 値 (すなわち , 現在 の 値 プ ラス 
増分 ) に 変え て 。 くり か え し 部 分 の 最初 に も どれ . た だ し , 制御 変数 
の 新しい 値 が 終値 を 越え を た な ら ば , くり か え し を 終了 し て KR 到 Fm の 
次 の 文 に 進め ] と いう こと を 表す 。 な お 
始 値 。 終値 , 増分 は 必ず し も 整数 で な く て も よい * 
始 値 。 終値 , 増分 と し て 変数 や 式 を 書い て も よい 
増分 は 負 で も よい 





( 例 ) の 値 を 1 か ら 5 ま で 変え て が ( パ 十 1)/2 の 値 を 計算 し 出力 
する に は 次 の よう に 書け ば よい . 
10 BEOR N= テ = ュ 1 TO 5 


る 0 PRTNPT N。N※*(RN 十 1] ) ノ る 
うるう O NEXXT RNN 
[出力 例 ] 1 1 
1 





* ま た だ し 整数 で な いと 。 丸め 誤差 の た め に 。 くり か え し 回 数 が 。 意図 し た 
と お り に な ら な いこ と が ある の で 。 な る べく 整数 を 用 いる 方 が 安全 で ある 。 
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FEOR 一 NE 台 文 


念 図 * 
以 制御 変数 に 始 値 を 代入 REO 


くり か え し 
実行 すべ き 
部 分 


制御 変数 に 増分 を 加算 


NEXT 





次 の 処理 に 進む ( 注 2) 


注 1) 増分 が 負 の 場合 に は , 終了 判定 の 不等式 の 向き が 逆 に な る . 

注 2) この と き 制 御 変数 の 値 は , 「 最 後に 実行 し た と き の 値 プラ ス 増 分 」 に 
な っ て いる の が 普通 で ある 。 

多重 の くり か え し FEOR-NEBXXT を 入れ 子 の 形 で 書く こと に より 
2 重 , 3 重 。 … の 組合 せ 的 くり か え し を 行なう こと が で きる . 


( 例 ) エ の 値 を る か ら 5 ま で 変え 。 その 各 エ に つい て 。 の 値 を 1 か ら エ ー ユ 
まで 変え て ノエ を 計算 し 出力 する に は 次 の よう に すれ ば よい 。 


10 EOR エ = テ 3 TO 5 
る 々 O EOR J ゴ = テ 1 TO や | 


90 G= ニ ゴン ノエ 内 側 外側 
人 0 PRTINT エ : ゴ iC の ルー プ の ルー プ 
50 NEXT ナ 了 っ 


60 KN 選 文 〒 エ - 一 一 一 一 一 一 


終了 判定 を 。 くり か え し 部 分 の 前 に 行なっ て いる 機種 も ある (た と えば 
PC-8801) が 。 普通 の 使い 方 な ら ば どちら で も 同じ 結果 に な る . 
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グー 一 部 の 機種 で 
4.9 REPEATーUNTIL  / イ 。( PP 


へ A ーーー ン 





指定 し た 条件 が 満た きれ る まで 反復 を 行なう 場合 の た め に 
RBPEBAT 。 UNTT エ と いう 文 を 使用 で きる 処理 系 が ある *。 書き 方 
は , 

REPBA 呈 
くり か え し 実行 すべ き 部 分 
UNTTI」 条件 式 





で ある 。 
概念 図 
REPEAT 
くり か え し 
実行 すべ き 
部 分 
UNTTIL 
次 の 処理 に 進む 
( 例 ) 
19 昌 =1 : B=2 
29 REFEHT 


S9 B=(H+B〉/2 』 昌 =2/B 
49 PRINT HB 
29 UNTIL HBS〈H-B〉 く 1E-95 


*※ だ たと えば Hu BASIC 
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イー 7 これ を 使用 で き 
4.10 WHILE-WEND し し な い 機 種 も ある . 
指定 し た 条件 が 満た され て いる 間 だ け 反 復 を 行ない た い 場 合 の た め 
に WHTTL 包 。 WEBND と いう 文 を 使用 で きる 処理 系 が ある *. 書き 方 は 
WHTILTLE 条件 式 
くり か え し 実行 すべ き 部 分 
WBIND 
概念 図 


WHILE 


WEBND 





ーー 一 


次 の 処理 に 進む 


( 例 ) 
19 H=1 ji B=Zz 
29 MHILE HBS(H-B〉>1E-95 
39 Bs(HTB〉/2 ji H=ZZB 
49 PRKINT HzB 
59 MEND 


玉 た と えば PC-8801 の ディ スク BASIC。 Micro-8。 ゲ -800,。 Hu BASIC な 
ど . 
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使用 で き な い 
4.11 SWAT 機種 も ある . 


これ は 二 つ の 変数 の 内 容 を 変換 する 命令 で , 制御 文 で は な い が 。 制 
御 文 と 一 緒 に よく 用 いら れる .。 SWAP 文 は 次 の 形 で 書く . 


SWAP 変数 名 , 変数 名 
( 例 ) SWAP A,B 





( 例 ) 手もと に パソ コン が あっ た ら 。 次 の プロ グラ ム を 実行 きせ て みる と よ 
い 。 

10 Aー2 

20 B= テ S3 

30 SWAP A,B 

40 PRINT りり A= テ WV:A 

50 PRTNT "B= リ : 王 
内 容 の 入れ 替わっ て いる の が わか る で あろ う . 

SWAP 文 を 使え な い 場 合 機種 に よっ て は SWAP 文 を 使え な いも の が 
ある *。 そう いう 機種 で SWAP 文 と 同じ こと ( 二 つ の 変数 の 内 容 の 交換 ) を 行 
な うに は ,。 待避 場所 を 一 つ 用 いて 次 の よう に 書け ば よい . 

W ニ テム A 
AーB 
BーW 
[動作 解説 |] た と えば , A に は 7 ツ 7。 B に は 8 が 入っ て いる と する 。. 


が SWAP A,B と 同等 





記憶 場所 A ②B の 内 容 記憶 
ロ 憶 場所 008 を E 憶 場所 


A に 移す 











待避 場所 W ⑧W に 移し て あっ た 


007 を に 移す 


007 を 
W に 移す 


*※ た と えば PC-6001. また 。MZ-80 の SWAP 文 は 本 節 の 意味 と 全く 異な 
る の で 注意 . 
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4.12 本 列 


59 


一 組 の デー ター に 番号 を 付け て 規則 的 に 並べ た も の を 配列 (array) と 
ぃ いう 。 これ は 要する に 表 (ひょう ) の こと で ある が , 


コン ピュ ー タ ー の 
用 語 で は 配列 と いう の が 普通 で ある . 


デー ター を 一 列 に 並べ た も の を 1 次元 配列 と いう . 


1 


ーー ター を 四角 に 並べ た もの を 2 次 元 配 列 と いう . 
デー ター を 立体 的 に 並べ た も の を 3 次 元 配列 と いう . 


(以下 同様 に 何 次 元 で も 可 ) 


この 名 前 を 配列 名 と いう 。 配 
列 名 の 付け 方 (使用 文字 や 長き に つい て の 制限 な ど ) は 変数 名 の 付け 方 
と 同じ で ある *. 


配列 名 配列 に は 名 前 を 付け て 扱う . 


1 次 元 本 列 | | | | | | | | | 


2 次 元 配列 


3 次 元 配列 


明香 時 


* 基本 BASIC で は 「 配 列 名 は 英字 1 字 に 限る ] と な っ て いる が 。 パソ コ 


ン の BASIC に お いて は (一 部 の 機種 を 除け ば ) 変数 名 と 同様 。 長い 配列 名 を 
許し て いる 。 
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4.13 添字 付き 変数 


配列 に 属す る 個々 の デー ター の こと を 配列 要素 と いう . 配列 要素 は 。 
配列 名 に 添字 (いい か えれ ば 番号 ) を 付け た 形 (これ を 添字 付き 変数 
と いう ) で 参照 する こと が で きる . その 書き 方 は 


配列 名 ( 添字 ) 1 次 元 配列 の 場合 

配列 名 (第 1 添字 , 第 2 添字 ) 2 次 元 配 列 の 場合 
(以下 同様 ) で ある . 2 次元 配 列 の 場合 。 第 1 添字 は 行 番号 。 第 2 添 
子 は 列 番 号 を 表す .。 添字 に 負数 は 使用 で き な い が 。 0 は 使用 し て よい . 





( 例 ) 配列 A 配 文 

1 列 目 2 列 目 3 列 目 

1 行 目 

2 行 目 

3 行 目 

の 場合 、A(2,.3) の 値 は 人 44.7,。 A(3 る 3. る 2 る) の 値 は O. ユ , 文 (1 ) の 値 は 
る 2.9,。 A(1 ,3) 十 文 (2 ) の 値 は 8 .6 十 0 .8= テ 9 . 全 に な る . 





添字 式 添字 と し て は 。 整定 数 の ほか ,。 変数 名 や 式 を 書い て も よ 
し ゝ 。 


( 例 ) A( エ 。 了 ) 双 (2**N 一 ] ) 


添字 と し て 用 いる 式 の 形 に つい て の 制限 は な く , どん な 式 で も 書け る . 
( 例 ) C( エ ノ ゴ 二 8STN( 文 (N) ) 十 5.8) 

添字 に 端数 (小数 点 以下 ) が ある 場合 は 四捨五入 に より 整数 化す る の 
が 正式 で ある が 。 単純 切り 捨て に し て いる 機種 も ある . 





添字 付き 変数 の 引用 添字 付き 変数 は 普通 の 変数 と 全く 同様 に 使用 
する こと が で きる .。 た だ し *OR 文 の 制御 変数 と し て は 使用 で き な い . 
( 例 ) 式 の 中 に 書く A( 1 ) 

代入 先 に 指定 A ( 6 ) ニー*※Y オ 宮 

入 力 TNPUT P( る 3) 

出 カ PRTNT Q(7 の ) 
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4.14 配列 の 宣言 と 解除 


DIM 文 配下 を 使用 する 場合 は 。 あら か じ め , 
DTM 配列 名 (寸法 ) 
DIM 配列 名 (寸法 , 寸法 ) 


な どの 形 で 。 配列 の 宣言 を 行なっ て お く 必 要 が ある . た だ し 寸法 が 10 以 
下 の 場合 は 宣言 せ ず に 配列 を 用 いる こと が で きる . 





上 で 寸法 と 書い た の は 添字 の 上 限 の こと で 。 コン ピュ ー タ ー は その 値 
に 合わ せ て 配列 の 記憶 場所 を 割り 当て る . 寸法 は 。 あら か じ め わ か っ て 
ゅ いれ ば その 値 を 定数 と し て 書く の で ある が , 

( 例 ) DIM A(3,.3) , 文 (4 ) ,O(137 ) 

入力 デー ター や 計算 の 状況 に 合わ せ て 寸法 を 決め た い 場 合 に は ,。 ここ に 
変数 や 式 を 書く こと も で きる *. 

( 例 ) DIM A(M,RN ) , 丈 (M 填 1 ) 。O(M 十 N ) 


[解説 ] BASIC の DTM 文 は 実行 文 (すなわち , 実行 時 に 機能 する 文 ) で あっ 
て , 配列 の 記憶 場所 の 割り 当て は , プロ グラ ム の 流れ が そこ に 到達 し た 時 点 に 


5 いて 行なわ れる . し た が っ て 。 一 つの デ ロ グ ラム 中 に 回 じ 配 列 の 宜 言 が 2 箇 
所 以上 あっ て も よい (重複 し て 実行 され る こと が な けれ ば ). 





ERASE 文 [ 使 用 で き な い 機種 も ある ] これ は 不要 に な っ た 配列 の | 
宣言 を 解除 し ,。 その ぶん の 記憶 場所 を 他 の 目的 に 転用 する こと が で き し ・ けい 
る よう に する .。 これ は 次 の よう に 書く . 


ERASE 配列 名 


( 例 ) DIM A(2,3) で 配列 A を 2 行 3 列 に 宣言 し て 使用 し た あと , 不要 
に な っ た ら ERAS 互 A で 配列 宣言 を 解除 し , 別 の 配列 を 宣言 し て も よ 
く 。 あるいは DTM A(5。 の の) な ど と 再 宣 言 し て も よい 、. 


* ま だ た だ し コン パイ ラー で は 使用 で き な い 、. 


62 4 制御 文 


4 15 配列 の 入出 力 


入 力 パソ コン の BASIC に は 一 つの 命令 で 配列 の 全 要 素 の 入出 
力 を 行 な を る よう な 機能 は な い の で 。 1 要素 ずつ の 入出 力 の くり か え し 
の 形 で プロ グラ ム を 書く 必要 が ある *. 

( 例 ) 小 き な 配列 王 の 入力 は 次 の よう に する と よい . 

10 DTM A(3 る ,。2) 

20 EOR エ テ = テ 1 TO 3 

る 0 PRTNT ]T: リリ きょう め を いれ て く た | さい 『! 

40 TNPUT A(T。1) 。A(T,。2) 


50 NE 公 T 
この 場合 。 入力 デー ター は 1 行 分 ずつ ( 1 行 の 中 で は コン マ で 区 切っ て ) 


の 」。 の 2 
の 2」。 の 22 
の 3j。 の 32 


の 順に 入れ る . 一 方 ,。 大 き な 配 列 の 入力 は 次 の よう に する と よい . 
10 DIM A(30,50) 
20 FEOR エ テ ュ 1 TO 30 


っ 0 FEOR J= テ 1 TO 50 

40 PR TN 呈 TA( リト エリー ルーゴ リ ) = すり ・ 
Oo0O TNPUT A( エ ,。 耳 ) 

60 NBT J 


270 NEXT + 
これ だ と , 入力 すべ き デ ー タ ー の 行 番号 。 列 番号 が 表示 され る の で , 該当 する 
デー ター を 入れ て いけ ば よい . 


RUN 

RC 1 3 1 ぅ =? 947。251 1 
RC 1 ) 2 )=7 262.5256 
HC 1 』 3 )=7 233。9641 
HRC 1 』 4 う =? 256、 さ 491 
Rt 1 3 3 うぅ =? 941 。 く 1 く 1 


*※ 大 型 コ ンピュータ ー の BASIC に ある MAPT REBAD 文 や MA 
PRTIRNTT 文 は 。 パソ コン の BASIC で は 使用 で き な い . 
*※※ 配列 の 1 行 分 を 画面 1 行 に 表示 で きる 場合 


4.15 


配列 の 入出 力 
由 カ 


1 行 目 か ら 順に 出力 


ここ で は 改行 し な い 
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出力 も 同様 で , 以下 の 要領 で アプロ グラ ム を 書け ば よい . 
( 例 ) 配列 A が 7 行列 で 。  s5 の 場合 

EOR + エ = テ ュ TO M 

EOR J ゴ = テ 1 TO RN 

PRTNT A( エ , 耳 ), 


NET 耳 配 外 の 1 行 分 を 1 行 に 出力 

PRTNT 改行 する 

NXT 1 
[出力 例 ] 
1 .5 ささ ささ ささ ・ 25 ・2 
・5 ささ ささ ささ っ 5 2 - 166667 
ささ ささ ささ っ 5 2 ・ 166667 - 1 42 ヨ 57 
25 2 - 1 66667 ・ 1 42B57 125 
2 ・16666 フ - 1 42B57 ・125 -111111 


( 例 ) 配列 A が 4 行 列 で 。/ >5 の 場合 。 4 列 分 ずつ まとめ て 出力 
し て ,。 あと で 大 き な 台 紙 に は り 合 わせ る と よい . 
FOR KARA=] TO RN-ー3 ST 到 P 4 
MADE 三 人 KARA 十 る 
TE MADE>N 呈 HEEN MAD 到 =N 
FOR J ゴ = テ KARA TO MAD 
PRTNT リリ ゴー テリ : ゴ 。 
NEB 文 F〒 了 
FEOR エ = テ 1 TO M 
FOR ゴー テ KARA TO MAD 互 
PRTINT A(T, 了 ) ,。 
N 玉 F 
PRTRNT 
NB 文 T エ 
PR T NT 
NEX メ T KARA 
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4.16 例題 お よび 演習 


例題 1 一 2 次 方 程 式 の 根 
2 次 方 程 式 
の *^ 十 z 十 c テ 0 
の 根 ( 実 根 の 場合 も あり 複素 根 の 場合 も ある ) を 計算 し て 出力 する 
プロ グラ ム を 作れ . 














[解答 ] 2 次 方 程 式 の 根 の 公式 を 用 いる . まず 判別 式 
の = 62 一 4gc 
の 値 を 計算 し 。 つい で に , あと の 便宜 を 考え て 
S = ニー6/(22) 。 アニ アソ | の | /(2Z) 
の 値 を 計算 し て お いて , 次 の よう に 処理 する . 


[流れ 図 ] 







係数 2, の 2, と を 読み 
の, S, 7 の 値 を 計算 






* ュ デベ S 十 
ィ 2 一 Sー ア 
の 値 を 印刷 


ィ ュ ー ベ 十 7?7 
え 2 一 ぐー77 
を 印 刷 













ァ ー マ S 
の 値 を 印刷 
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[プロ 


100 
110) 
12 〇 
1 ぶさ 0 
1 4 
150 
1 60) 
1 7 
18O 
190) 
20Q 
210 
マロ 
でき さ Q 
240 
で ら 0 
2 ら 6 
7 
2BQO 
290) 
さぶ OO 
さ 10 
る ) 


ささ 


グラ ム 例 ] 


REM で 5 証 ロ キイ ミキコ ・ ュ メー デキ D ロ ・※ キ て エニ 〇 ⑦O ラテ トコ 
REN 

INFUT "aaD』。 こ = リョ BEB。 じ 
REN 

D り = テロ ※\Hー オ 信じ 
ニーロ / (で ※ 人 ) 

1 =SGR (BS(D) ) / (で %※ 合 ) 
REMN 

ITF DO_ BUTOU さき O0O 

IF D=O_ GOTO で 6 

RE IM 

REM _ DO) 7 エイ 

FRINT "XX1= リ "リョ ロロ + 和 T 
FRINT リリ X ビ = リョ ロー 

END 

REM 

REM D=O 1 iT T イ 


FRTINT XaS 
END 

REMN 

REM DSO ET WT 


FRTNT リス 1 ユー リョ 65 ョ リキ リョ ュ T ョ リュ リ 
FRINT ーー ュ リ 
END 


[出力 例 ] 


bs7 1.8,1 
= 0111 
esH-1j 


bis7 19.9.45.6578.9 
M1-1.95366 1 1.72586 ) 
02-1.85366 - 1.72586 
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例題 2 数 表 を 作る 
1 か ら 10 ま で の 整数 の 2 乗 。 逆数 , 平方 根 の 数 表 を 作成 する プロ グ 





ラム を 作れ . 


[解答 ] の 値 を 1 から 10 ま で 変え て 
か / / 2 1/ /M 
の 値 を 計算 し 出力 すれ ば よい . 


10 PR1INT VN MNOA リ 7 | 見 出し を 
2 0 PRT NT リュ 人 ノン NU 。 VSQR(N) リ " | 出力 する 
30 FEOR N= テ 1 TO 10 | 
40 PRTNT N,N へ 2 ,1 ン N,。SQR(N ) 記 
50 NEBXKT NRN 
[出力 例 ] 

N で 1 /N ら SGR(N) 
1 1 1 1 
っ 4 . 1 .41421 
ふ 9 ささ あさき さ さ 1 。 アス だ 0 ら 
4 1 6 。 の で 
ご で の 。 で 。 で さら 0 ア 
6 さら 6 。 1 6666 プ っ 。44949 
ア 分 9 。14 ど B5 ア ご 。 ら 4 己 75 
ロ ら 6 分 。 1 で ら <。 ロ で コロ 4 マミ 
9 は 1 <111111 さ 
1 100) 。1 さ 。 16 で で 日 


[備考 | 1) この プロ グラ ム は 1 行 に 出力 する 文字 数 が 多い の で ,。 ディ 
スプ レイ 装置 の 1 行 の 文字 数 を 60 字 以上 に 設定 し な いと 。 きれ い に 出 力 
され な い . 1 行 の 文字 数 を 多く と れ な い 機 種 で 実行 する 場合 に は 行 10, 
20, 40 の 出力 項目 の 区 切り を セミ コロ ン に 変更 する 必要 が ある . 

2) この プロ グラ ム だ と , 上 の 出力 例 の よう に , 整数 が 左 づ め に な り , 
右 に 大 き な 空 折 が でき る. 右 づ め に し て 適切 な 桁 数 で 出力 する に は 次 の 
章 で 説明 する PRRTNT US8TING 文 を 用 いる 必要 が ある . 

3) プリ ンタ ー へ の 出力 方 法 は 229 ペ ー ジ 参照 (比較 的 簡単 で ある ). 
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ーー 例題 3 一 一 一 収束 判定 
/ ィ の 値 を 求め る に は 組込み 関数 SQR を 用 いて も よい が 。 次 の よ 
う な 遂 次 近似 法 で 計算 する こと も で きる . この プロ グラ ム を 作れ . 
gg ンジ 0 で あれ ば 


よい 、 た と えば 
の gー ニ と する . 






出発 y ァ の 第 1 近似 値 2, を 適当 に 選ぶ 


U 


と は 許 答 誤 差 。 

た と えば 10~? と 
する . 小さ すぎ 
る と 反復 が 止ま 


ら うな く な 
終了 (結果 は gk。」) ら さ なくなる. 





[解答 」 


10) EEF'G=O。 OOCOC)C) 1 

2O INFUT "X="sX 

さ QO 人 = メ 

40 BB=X/ 

0 人 =( 人 TE) / 人 

6Q 1F ESG((a-E) /) EFS BUTO 40 
70 FRINT "SQR(C" ュ Xi") = リョ 


[出力 例 ] 
RUHN 

SHE( 2 = 1.41421 
ドコ ョ ョ ロコ 

RI 

三 1 回 円 器 回 

SHE( 1E+ )= 1R 由 避 
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HHHIHHHIHH 問 玉出 昌 首 上 上 用 上 晶 有 昌利 IIHIIHHIIHHHIIHIIHIIHIIIHIHHIIHIHHIHIIHIIHIIIII 
4.1 (大 口 割 り 0 引き) ある 店 の カセ ッ ト テ ー プ の 値段 は 次 の よう に な っ て 
いる 。 
バラ (1 本 単位 ) だ と , 330 円 (1 本 に つき ) 
1 箱 (10 本 入り ) は , 3000 円 (1 箱 に つき ) 
2 本 の 値段 を 計算 する プロ グラ ム を 作れ . 


4.2 (妥当 性 の チェ ッ ク ) 月 , 日 を 入力 し た と き , その 値 が | あり 得 な い 日 
付け ]( た と えば 2 月 30 日 と か , 13 月 7 日 と か 。 0 月 一 1 日 な ど ) で な いか どう 
か を 調べ る プロ グラ ム を 作れ . 


4.3 (うる う 年 ) 西暦 年 を 入力 し て , その 年 が うる う 年 で ある か を 判定 し , 
その 結果 を 出力 する プロ グラ ム を 作れ . 

[ヒン ト ] 4 で 割り 切れ な けれ ば 平年 . 4 で 割り 切れ て , 100 で 割り 切れ な け 
れ ば うる う 年 . 100 で 割り 切れ て , 400 で 割り 切れ な けれ ば 平年 . 400 で 割り 切れ 
れ ば うる う 年 . な お , を 77 で 割り 切れ る か どう か を 調べ る に は , MOD (34 
ペー ジ 参 照 ) を 用 いる か , ある い は 「 が /47」 と 「 が パン 4 の 整数 部 ] が 等 し い 
か 否 か を 調べ れ ば よい . 整数 部 を と り 出 す に は 組込み 関数 NT (35 ペ ー ジ 参 
照 ) を 用 いる . 


4.4 (機能 選択 ) 三角 形 の 面積 を 計算 する 公式 は いろ いろ ある が , まず 公 
式 番号 z を 読み , 
2 三 1 な ら ば ,。 2 辺 の 長き 2。 らち と その な す 角 の より 


S ぐ 三 の Sin の /2 
2 三 2 な ら ば 。 底辺 の 長 さ 2 と 高き さん より 
ぐ 三 ん /2 


2z 三 3 な ら ば 。 3 辺 の 長 さ gz。 2。 c より 。 Heron の 公式 


Ss(s 一 @)(sー の (s 一 c) $ 三 (2 十 の 十 c)/2 
で 面積 S を 計算 する プロ グラ ム を 作れ . 
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4.5 (数 表 を 作る ) 次 の 数 表 を 出力 する プロ グラ ム を 作れ . 
i) の ニ 0* か ら 90' ま で 10' お き の 
Sin の COS の tan の 
の 数 表 . 
ji) ヶ = テ 0.1 か ら 2.0 ま で 0.1 お き の 常 用 対数 1ogi。x の 数 表 . 
ii) z 三 1 から 10 まで の 2%! の 数 表 . 


4.6 (料金 早見 表 ) ガソリン ・ ス タン ド 用 の 料金 早見 表 を 作り た い . 単価 を 
4 種類 (製品 の 種類 な ど に よっ て 異な る 。 例 えば, リッ ター あたり 138 円 。 145 
円 ,。155 円 , 170 円 ) 読 み 込み 。 1 リッ ター か ら 0.1 リ ッッ ター おき に 30 リ ッ タ ー ま 
で の 料金 表 を 出力 する プロ グラ ム を 作れ . 


4.7 (複利 計算 ) 元 金 1 万 円 を 複利 で 運用 し た ら 1 年 後 , 2 年 後 。 …, 20 年 
後に いく ら に な る か ( 苑 利 合計 ) の 表 を 作り た い .。 3 段階 の 年 利率 (例え ば , 
3.526。 52o6, 626) を 読み 込み , 上 記 の 表 を 出力 する プロ グラ ム を 作れ . 


4.8 (積立 預金 ) 毎年 1 万 円 を 積立 預金 し た ら ,。 1 年 後 。 2 年 後 。…, 20 年 
後 の 元 利 合計 が いく ら に な る か に つい て 。 前 問 と 同様 の 表 を 出力 する プロ グラ 
ム を 作れ . 


4.9 (年 金 ) 退職 金 1000 万 円 を 原資 と し , 毎年 100 万 円 ずつ 引き 出し て 使用 
し た と し て , 10 年 後 ま で の 毎年 の 元利 合計 を 計算 する プロ グラ ム を 作れ . た だ 
し 預入 れ 時 点 に は 引き 出さ きず , 1 年 後 か ら 引 き 出 す も の と する . また , 利率 は 
問題 4.7 と 同様 に 3 段階 の 値 を 指定 で きる よう に する . 
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4.10 (極限 値 ) 数 値 計算 に よっ て 数 列 の 極限 値 の 央 密 な 値 を 求め る こと 
は で き な い が , 極限 値 に 近い 値 を いろ いろ 計算 し て みる こと に よっ て 権限 値 を 
推測 する こと は で きる . た と えば 
@ 三 Hm アテ 

の 値 を 知る に は 。 か ー 10-* に 対す る g。 = ィ 』 "の 値 を 2 三 1。 2。3。… に 対し 
て 計算 し て みれ ば よい で あろ う . 

i) z 三 1 か ら 10 ま で に 対し , 上 記 <』。 の 値 を 計算 し て 出力 する プロ グラ ム 

を 作れ . 


ii) 々 = lim デニ ーー に つい て 同様 な アプ ログ ラム を 作れ . 


Y こ 0 
ii) 々 =limd 二 三 )* に つい て 同様 な プロ グラ ム を 作れ -。 
Yー0 
iv) 半径 1 の 円 に 内 接する 正 z 角形 の 周 の 長 さ 2, と , 外 接 する 正 z 角 形 
の 周 の 長 さ は 次 式 で 計算 で きる 。. 
。 女 ーー 婦 
の ,。 三 22 SI1n ー] ム の, 三 2 tan 一 


>oo と する と き の 。 これ ら の 値 の 極限 値 を 知る た め に , 上 と 同様 な プロ 
グラ ム を 作れ . 
y) tan> を 連 分 数 に 展開 する と 次 の よう に な る 。 


tan ァ ーー 





9 一 以下 同様 


* の 値 を 入力 し 。 上 記 の 式 (適切 な と ころ まで ) で tan* の 値 を 近似 計算 
する プロ グラ ム を 作れ . 
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例題 4ーーーーー: 九 九 の 表 一 ー-ーーーーーー 
九 九 の 表 を 作成 する プロ グラ ム を 作れ . 


[解答 ] 計算 機 の 内 部 に 右 図 の よう 








な 配列 を 用 意 し , その 行 了 列 目 の  , 

所 に 積 7 の 値 を 書き 込ん で 印刷 する . 3 

[ 別 解 ] 1 行 分 だ け の 配列 を 用 意 し 。 。 

第 ? 行 の 計算 を し て すぐ 印刷 する , と 6 

いう 手続 き を ? ニ 1^-9 に つい て 反復 

し て も よい . 9 | | 還 還 間 還 
10 DIM A(9,9) A が 9 行 9 列 の 配列 で ある こと を 示す . 
20 FOR エ テ ュ 1 TO 9 7? を 1 か ら 9 ま で 変え , 
3 る 0 FEOR J ゴ = テ ュ 1 TO 9 その 中 で 7 を 1 か ら 9 ま 
40 A( T , 耳 ) ニ エ * ネ 耳 で 変え て , 積 の を 計算 す 
5 0 NEXT 了 J る . 
60O REXXT 1 これ で 配列 A の 中 に 九 九 の 表 が で きた . 
70 FOR エ = テ 1 TO 9 
80 FOR J= テ 1 TO 9 
90 PRTNT TAB(4*) :A(T, 耳 ) : 

100 NEXT J 

110 PR T NT これ は 「 改 行 せ よ 」 と いう 意味 に な る . 
120 NEXT 1 

[出力 例 ] 


ーー 『" ョ 


ra 


Ws ma_- 記 E-。 6 We 


0 Waree am 
No La 


RI B 


-JLeW"CmaL『Hg_a ーー ーー 


ニー 上 ーー ーー 6 8 mg Ws 
0 EN ee WaW=。B 


し W 一 -- 有 Wa 
ー ョ ー 





「 下 上 E 還 CI LBH LE ニー ニコ mm IE ご 
WT 

Was --。 に He 9『"。ーー- 一 --」 

ーー6_aH0E Ta 8 一 ーーI_i 


HE ES Caeaus eee ニーー ョ ーー- WW Ta 


ーー ニー 


SWalc。_8W 
WIHeCscem_ 5He 
ーー EHP Te 
L 直 二 Hm iL 

em FE-。 6W Ta 


Le 
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昨 昨 有 H 出 用 問 燃 上 HIHHIHHHIHIHHHIHHHHHIHHIIHHHHIIHIIIIHHHIHHHHHHHHIHHHHHIIHHHHIIIHHHIIHIIIIHHIHIHHHIHIHIHHHHH 

4.11 (系 数) 正 の 整数 を 入力 し , が 素数 で ある か 否 か を 判定 する プ 
ログ ラム を 作れ . 

[ヒン ト ] 2 か ら /W まで の すべ て の 整数 で 割っ て みれ ば よい . が 7 
で 割り 切れ る か どう か を 調べ る に は , 

N MOD M 

が 0 か どう か を 調べ れ ば よい . 


4.12 ( 秦 数 表 ) 1000 ま で の 素数 を 全部 求め て 出力 する プロ グラ ム を 作れ . 
[ヒン ト ] 「gEratosthenes の ふ ぉ ふるい] と いう 方 法 を 用 いる と よい . 

1000 ま で の 素数 を 求め る の で あれ ば , まず 2 か ら 1000 ま で の 表 を 用 意 し , 2 の 
倍数 全部 ,。 3 の 億 数 全部 ,。 … に 印 を 付け る (ただし, 1 倍 , すなわち 自分 自身 
は 除く ). こう し て 1000 以 下 の す べ て の 数 の 倍数 に 印 を 付け た と き , 残っ た も 
の が 素数 で ある . 


51 ダ |17| ダ | ダ が 140| … 


これ を コン ピュ ー タ ー で 行なう に は 。 寸法 1000 の 配列 A を 用 意 し , その 要素 
全部 に 0 を 入れ て お き , 
100 FOR KK= テ 2 TO 8SQR(1000 ) 


10 FEOR エー2 串 O 1000/ 反 

[る 0 三 上 エ ※ 区 

る 0 TE 上 1000 呈 HEEN 160 
上 0 A( エ ) テ ュ ユ 

150 N 選 失 T 1 


160 NEBXT 人 勾 
と いう ぐあい に 処理 し て いけ ば よい 。 な お 。 行 100 と 行 110 の 間 で 。 反 が 素数 で 


ある か どう か を 調べ , 素数 で な けれ ば 行 160 ま で スキ ッ プ する よう に すれ ば, む 

だ が 少な く な り , 処理 時 間 を 大 幅 に 短 較 で きる . また 。, 行 110 か ら 始 まる ルー プ 

も ,。 よく 考え て みる と , 衣 ニ エー1] まで は 既に 印 が つい て いる の で ある な から, 
FOR T エ = TO 1000/ 散 

と し て よい . 


4.16 例題 お よび 演習 73 


4.13 ( 径 因数 分 解 ) 正 の 整数 パ を 入力 し , これ を 素数 の 積 の 形 に 分 解す 
る プロ グラ ム を 作れ . た だ し ss 100 と し , 100 ま で の 素数 表 を 記憶 きせ て 利 
用 し て よい . 

[ヒン ト ] 下記 の 要領 で 処理 すれ ば よい . 

た = 2。 3。 5。 7。 11。13。… の 順に 

バ が > な ら ば 終了 . 

を を で 割っ て みる . 割り 切れ な けれ ば 

ーー 割り 切れ た な ら ば ー 一 

が を 出力 . 

新 = 現 パ パン 

パッ >1 な ら ば 前 に も どっ て 反復 

= 1 な ら ば 終了 . 

ー 次 の へ 
100 ま で の 素数 は 下記 の 25 位 で ある . 

2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 
61 67 71 73 79 83 89 97 

出力 は ,。 た と えば WW =24 の 場合 

る 2 る 3 
と いう 形 に する の が 最も 簡単 で ある が 。 工夫 すれ ば 
る 4 る 玉 2 玉 る ※ る 
(また は これ に 多少 。 空白 が 入っ た 形 ) に する こと が 可能 で あろ う . 





4.14 ( 徐 数 の 分 布 ) 問題 4.12 (素数 表 ) の プロ グラ ム を 改造 し て , 
100 以 下 の 素 数 の 箇 数 
101 か ら 200 ま で の 範囲 の 素数 の 箇 数 


901 か ら 1000 ま で の 範囲 の 素数 の 箇 数 
を 数 えて 出力 する プロ グラ ム を 作れ . 
[ヒン ト ] 86 ペ ー ジ の 「 区 分 計算 の 方 法 」 を 参考 に する と よい . 
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例題 5 一 ーーーー 階 乗 , 3 項 係数 
2 と ヶ の 値 を 読み , 2 項 係 数 (組合 せ の 数 ) 


ニク = ンー が 







の 値 を 計算 し て 出力 する プロ グラ ム を 作れ . 


[解答 ] 階 乗 の 計算 が 3 箇所 に ある の で ,。 階 乗 を 文 200 か ら 始 まる サブ 
ルー チン で 計算 する こと に する . 


[プロ グラ ム 例 ] 
10 INPUT N,R ん と ヶ を 読む . 
20 K=N 
30 GOSUB 200 PE 
40 EF] ユ ニセ 
50 K=R 
60 GOSUB 200 Mb 
ウツ 0 F2=E 
80 KK 三 NN 一 民 | (gー ク )! の 計算 . 結果 


90 GOSUB 200 有 ) は に 入る . 
100 O=ーm ユ ノン (EZ2*P ) 


110 PRTINT "COC= リ :O 

120 STOP 
く OO Pー ュ 1 ここ か ら サ ブル ー チ ン . 
る 10 FOR エ ユエ = テ 1 TO 散 を ! の 値 を 計算 し て 結果 

くる 0 FーEF ネ T を FE に 入れ る . 


る くう 0 NEB 共 呈 エエ 
0 RETURRN サブ ルーチン の 出口. 


基本 的 な プロ グラ ム 技 法 


5.1 整数 の 計算 


関数 INT 整数 の 計算 の コツ は TINPT と いう 関数 を 活用 する こと 
で ある . これ は (35 ペ ー ジ の 表 に ある よう に ) 
TNT(x) ニ |[ ィ を 超え な い 最 大 の 整数 」 
と いう 関数 で ある . 
( 例 ) エ NT(3 る .18) テ 3 TIRNT( 一 8.18 ) テー4 
祭 り 正 の 整数 47 を 正 の 整数 ん で 割っ た 余り を 求め る に は , 
次 の よう に すれ ば よい 、. 
R=M MOD 
( 例 ) 47 ニ 20。 パー ニー6 な ら ば , /W = 3.333… 
TNT(IM ン N ) 三 5 民 ニ る 
約 数 正 の 整数 44 が 正 の 整数 パ で 割り 切れ る か どう か を 調 
べ る に は 
TE M MOD RN=O THEN … 
と すれ ば よい 。 呈 旦 EN の 行先 が 「 割り 切れ た 場合 」, 分 岐 せ ず に TTF 文 
の 次 に 進む の が 「 割 り 切 れ な か っ た 場合 ] で ある . 
整数 計算 の 誤差 整数 の 計算 で は , 普通 は 誤差 は 入ら な い が , 
BASIC で は 整数 値 も 浮動 小数 点 表 現 で 扱っ て いる か ら , オー バー フ 
ロー (overflow。 あふれ) は 起こ さき な いか わり ,。 仮数 部 桁 散 を 超え れ 
ば 誤差 が 入る の で 注意 を 要する . な お , 標準 規格 で は 「 有 効 桁 数 6 桁 
以上 」 と な っ て いる . 普通 の 計算 は 6 桁 で も よい が , 金銭 の 計算 な ど 
の 際 に は 十分 に 注意 きれ た い . 
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5.2 最大 公約 数 と 最小 公 倍数 












還 。 正 の 整数 47, / の 最大 公約 数 C を 求め る に は 「 両 者 を 447 (また 
は パパ ) 以下 の すべ て の 整数 で 割っ て みる 」 と いう 方 法 が 最も 簡単 で あ 
る が 。 も っ と 能率 の よい や り 方 と し て Euclid の 互 除 法 ヒ と いう の が あ 
る . その 手順 は 次 の と お り . 
1) 47 と を 比較 し , 47 こ < な ら ば 交換 し て 47 = / に する . 
2) 47 を W で 割っ た 余り を 求め る . 
3) 余り が 0 か どう か を 調べ て , 
_ 0 な ら ば 計算 終了 (最大 公約 数 は パ で ある ) 
0 で な けれ ば 。 新 44ー ニ MM, 新 パ ニル と し て 2) に も どる . 
( 例 ) 4 =20,。 / = テ 12 の 場合 , 
20 二 12 の 余り は 8 新 47 12, 新 パ =8 
12 テ 8 の 余り は 4 新 44= ニ 8, 新 パ テ 4 
8ー4 の 余り は 0 だ か ら 計 算 終了 . 最大 公約 数 は 4. 
mm 77。 ん の 最小 公 倍 数 し を 求め る に は , 7 と W を 掛け て , 7 と 
/ の 最大 公約 数 C で 割れ ば よい 。 すなわち , と = 744 パン 選 . 






[プロ グラ ム 例 ] 


10 INFUT_ MO NGO 

< 円 O 

さぶ 0 MNO 

人 4 り 0 エ EF MEN THEN SMAF_M。』N 

っ 0 RM MOD N 

6 けり エ F R=O_ GOUTO 1100 

ア 70 M=N 

8O NN=R 

0 GUTOU SO 

100 FRINT ) さ いた Y いい こう 0 で すう "PaN 
110 L=MO*NO/N 

gO_ PR1INT "さい ロ し まう こう (4 いす 5 リョ し 


[出力 例 ] 
RUN 
アー ど 人 4。 さら 

さい た * い こうや くす 5 12 
さい し ょ よう こう が む いす る フタ 
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5.3 分 数 の 計算 , 複素 数 の 計算 


分 数 は 小数 に な お し て 計算 する の が 最も 簡単 で ある が , 分 数 の 形 の 


まま 扱う こと も 可能 で ある .。 それ に は 。 筆算 の 場合 と 同様 。 分 母 の 計 
算 , 分 子 の 計算 , 結果 の 約 分 な ど を , プロ グラ ム で 書い て や れ ば よい . 





[プロ グラ ム 例 ] 分 数 の 加算 の プロ グラ ム を 作っ て みよ う . 公式 は 
ど の C+4 の 
4「 で て エース 4 どー 
で ある か ら , 最も 簡単 に 済ま せる つも りな ら , 次 の よう に すれ ば よい 
10 TINPUT A,B,O,D 
20 忌 三 A*※O 
30 EFーB* ネ C 十 A※D 
40 PRINT Bi リブ リ 0EAiW 二 ササ :D リブ リロ Oi: 
(続き ) | リー リ ・ 包 ェ リン サリ: 負 
も っ と て いね い に や る と すれ ば , 次 の よう に な る 。. 
1) A と C の 最小 公 倍 数 を 求め る (前 ペー ジ 参 照 ) 
2 ) 到 = エ 
3 ) 〒ーB* ネ (エエ ノ A ) 二 D*( エ エン O ) 
4 ) 包 と せ の 最大 公約 数 G を 求め る (前 ペー ジ 参 照 ) 
5 ) 新選 三 氏 ノ G,。 新 世 ニノ G 
6 ) 必要 な ら ば , 仮 分 数 を 帯 分 数 に な お す 
複素 数 の 計算 


これ も 同様 に , 実数 部 と 虚数 部 それ ぞ れ の 計算 を すれ ば よい 。 公式 


は 
(Z 十 2 の ) 土 (c 十 ZZ) 三 土 と 十 z (2 土 ) 
(4 十 2 の ) ・ (と 十 Z の ) (2c -- 27) 十 ? (2 の 十 の と ) 


6 十 2 ら go の c 十 7 7 の c 一 の 
c 十 2 の c2 十 2? c“* 十 < 


|12 十 2 の | ニ y2* 十 の 7  g 十 2 の ニ ゥ g 一 2 の 
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5.4 丸 め 


正 の 数 の , 小数 点 以 下 を 丸め る 方 法 









切り 捨て 関数 tNT を 用 いれ ば よい . 
Yー テ TIRT( 文 ) 

切り 上 げ 符号 を 逆 に し て 切り 捨て て 符号 を も と に も どす . 
Y マ テーTNT( 一 区 ) 

四 捨 五 入 。 0.5 を 加え て 切り 捨て る . 


Y テ TINT( 文 十 O.5) 








負 の 数 の , 小数 点 以 下 を 丸め る 方 法 負数 の 場合 の 扱い は , 
絶対 債 に つい て ,。 切り 上 げ , 切り 捨て , 四 搭 五 入 する 
時 NM 

の 二 通 りあ る . 前 者 な ら ば , 次 の よう に する . 
切り 捨て マテ ーTRNT( 一 区 ) 
切り 上 げ Yー テ INT( 又 ) 
四捨五入 Y テ ーTIRNT( 一 文 十 O.5) 
後者 な ら ば , 次 の よう に する . 
切り 捨て マー テーTINT( 又 ) 
切り 上 げ Y= テ ーTIRNPT( 一 双 ) 
四捨五入 Yー テ TINT( 文 十 O.5) 
小数 点 以 外 の 所 で 丸め る 方 法 
適当 な 係数 10" を 掛け て 「 小 数 点 の 所 で 丸め る 」 と いう 形 の 問題 に 変換 
し 上 記 の 処理 を し て か ら 10” で 割っ て も と に も どす . 
( 例 ) 小数 点 以下 第 3 位 を 四捨五入 する に は 
Y= テ INT(100* 文 十 O . 5 ) ノ 100 
た だ し , 2 進 法 や 16 進 法 の コン ピュ ー タ ー で は , 10 進 法 の 小数 を 正確 に 
表現 する こと が で き な い の で 厳密 な 意味 で の 切り 捨て , 切り 上 げ , 四 捨 
五 入 は 不可 能 で ある . ( 例 ) 0.15 は 2 進 法 で は 正確 に 表現 で き な い . そ 
の 近似 値 が 0.15 よ り 小 さけ れ ば , 四捨五入 し て 0.1 に な りう る 。. 
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5.5 時 分 秒 の 計算 


時 。 分 ,。 秒 の 単位 を 併用 し て 時 刻 を 表す こと は 日 常 よ く 行 な われ て 
ぃ いる. その 加減 算 を 行なう に は 
凍 


すべ て を 秒 単位 に 換算 し て 加減 算 を 行なう 
の 二 つ の 方 法 が ある . TE 文 の 練習 や z 進 法 演算 の 扱い に 慣れ る た め 
に は 前 者 も よい が 。 実務 に は 後者 の 方 が 簡単 で よい 。 





[ブロ グラ ム 例 ] 「 太 時 分 5 秒 か ら を 時 22 分 ss 秒 ま で は 何時 間 何 
分 何 秒 か 『」 と いう 計算 (時 分 秒 の 引き 算 ) を する プロ グラ ム を 作っ て み 
よう 。 

10 PRTINT "HH1.M1。 8S1= リ | | 

20 TINPUT H1 。M1 ,81 


デー ター の 入力 
30 PRTNT "H2,M2,82= テ リ : 
40 TNPUT H2,M2,8S2 
5 0 m エ ユー3600*H1 二 60*M1 二 S1 ] あ に 
60 m2 ニ 3600*H2 十 60*M2 十 8 る | 久 
70 mー エ るー エ ユ 引き 算 を する 
80 HーTNT(T ノ 3600) 
90 R= ニ エー3600*H 3600 で 割っ た 余り 
100 MTNT(R ノ 6O ) 
110 8 ニ Rー60*M 60 で 割っ た 余り が 秒 


120 PRTINT H: リリ 忌 人 KARNV:| 
130 PRTNT M: HOURNT" : 
140 PRTNT 8: BYOU" 


[出力 例 ] 


ーJLI 


デ Fa に 


H 
日 


= 





IM 
ょ ーー ョ 軒 ー 


ーー エ 
es 


rH 


E TLHLI 
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5.6 日 数 計 算 


西暦 久 年 %, 月 の 日 か ら ,。 西暦 年 月 必 日 まで の 日 数 を 計算 す 
る に は 次 の よう に する と よい . 

【 定 石 】 年 , 月 , 日 を 別個 に 引き 算 し て , 引け な けれ ば 上 位 の 値 か ら 
借り て くる ,。 と いう 方 法 も 考え られ る が , 月 の 日 数 が 一 定 で な いた め , 
か な り 複 雑 な プロ グラ ム に な る . それ より も , 一 定 の 基点 (た と えば, 
1600 年 1 月 0 日 ) か ら の 日 数 を 計算 する プロ グラ ム を 作り , その 日 数 で 
引き 算 を 行なう 方 が 簡単 で ある . 

まず 。 1 月 0 日 か ら %% 月 日 まで の 日 数 を 計算 する 方 法 を 考え て み 
る と よい .。 それ に は ,。 各 月 の 0 日 が 1 月 0 日 か ら 何 日 目 に な る か を 電卓 
で 計算 し て 表 を 作り 記憶 きせ て お く と 簡単 で ある . 


1 月 2 月 3 月 4 月 5 月 6 月 
0 31 29 90 120 151 


7 月 8 月 9 月 10 月 11 月 12 月 
181 212 243 273 304 3J4 


これ は 平年 の 場合 で ある 。 うる う 年 に は , 3 月 以降 ,。 上 記 の 値 に 1 を 加 
える . 上 記 の 値 に の を 加え れ ば ぱ , 1 月 0 日 か ら %% 月 日 まで の 日 数 N ユ 1 
が わか る 。. 

次 に , 1600 年 1 月 0 日 か ら , ヶ年 1 月 0 日 まで の 日 数 R2 を 計算 する . 
それ に は いろ いろ な 方 法 が 考え られ る が , 最も 簡単 か つ 明 快 な の は , ひ 
と まず 1 年 を 365 日 と し て 計算 し .。 それ に うる う 年 の ぶん の 補正 を 加え 
る , と いう 方 法 で ある . 1 年 を 365 日 と し て 計算 する と , NZ の 概算 値 は 

365 メッ 

と な る .。 これ に 「1600 年 か ら ッ 年 まで の ,。 うる う 年 の 回 数 ] を 加え れ ば 

よい 。 その 回 数 は 組込み 関数 エ NT を 用 いて 
TNT( (マー1600 ) ノ 4 ) 
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と いう 式 で 求め る こと が で きる . この 式 は 「 西 暦 を 4 で 割り 切れ る 年 は 
うる う 年 で ある 」 と いう 規則 に 基づく も の で ある *.。 と ころ で ,。 暦法 に は 
100 で 割り 切れ る 年 は 平年 と する 
た だ し 400 で 割り 切れ る 年 は うる う 年 と する 
と いう 規則 も ある *。 この 補正 を 行なう に は , 
TNT(( ヤ マー1600 ) ノ 100 ) を 引き , 
TNT( (マー1600 ) ノ 400 ) を 加え る 
と すれ ば よい . 以上 を まとめ る と 。 プロ グラ ム は 次 の よう に な る 。. 


10 REIM つき は し * まで て * ゆめ に コ す オ う の ひよ う を よみ こも 
SO DIM CC(1 ど ) 

さ O DRT 人 AR OO 4 うさ 1。 コ 9 90。 1 で O 151.181 
40 DRTA で 1 で で 4 さ で ブス ささ 04 。 ささ 4 

SQ0 FOR ユエ =1 TH 18 

60 REATD じ (1) 

7Q _ NEXT 1I 

BOO_ REM ここ お から か" ほん は "ん 

0 INFUT "Y1JM1.D1 モ モリ Y。 MD 

100 GUSUEB で OO 

110 台 1=N 

1EO INFUT VDTYSEIPME DSmTaY。M,D 
130 GOUSUB_ SOGO 

1 4 仙 モ = ニ N 

1 コ 0C) 且 ニ 和 ロゼ ーー 1 

160 FRINT 折り" に ちる " 

17G FRINT 

18Q GUTO GO 

190 REM 本 D1600O 拉 も お ら の に コ す る を けい さん する ココ 5 ロコ Y 
<O00O Z= テ Yー1600) 

<10 NG= う 65※ ア +TNT(Z/4) 一 ITNT(Z/100) 二 1 エバ (テア 4 ) 
こ CO_ N1= じ (M) +D 

< さ ふ (C) NN=N1 +TNS 

<40 1]F (Y HUD 4) EEO_ BUTO ロ SGOQO 
= ら 5C) 1F 【Y _ MOD 400) EEO_ BOTO SBGO 
ぶら 0 1]F (Y HHD 100) SEO_ BHTO 30Q 
マ ノ 70 REM うる うと Y し の ほ せ い 

<BO IF ME= ニ で BOTH 計 QOGO 

“9 NN+ 1 

SO0O0_ RETURN 


ネネ 。 これ は 1582 年 に Gregory 13 世 が 定め ゆめ た, いわ ゆる グレ ゴリ オ 麻 の 規則 
で ある . 1581 年 以前 に は 適用 で き な い 。 
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箇 数 を 数 える に は 、。 箇 数 を 記録 する た め の 変 数 (カウ ンタ ー) を 用 


意 し , 最初 そこ に 0 を 入れ て お き , 順に 1 を 加え て いけ ば よい 。 複数 
箇 の カウ ンタ ー を 用 いれ ば 。 分 類 し て 数 を る こと も で きる 。 





上 で あっ た 日 数 だ を 数 えて 出力 する プロ グラ ム は 次 の よう に な る 。. 


10 区 =O 

20 FOR エ テ 1 TO 50 

る 0O TNPUT 

4 0 TE > テニ 30 呈 選 N 人 ニ 区 十 ユ 1 

50 RBE 選 文 呈 〒 エ 

60 PRINT ! リ 30 と " いし ょ う の ひ は は" : 廊 リリ に ち 『 


開始 





カウ ンタ ター を クリ ア 


気温 T を 読み 込む 
末 了 ーー *rwe 







結果 を 出力 
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( 例 2 ) 1000 人 の 学生 の 都 道 府 県 番 号 ( 下 表 参照 ) i。 AA。…,。 Mio。 を 
読み , 都 道 府 県 別 の 人 数 を 数 えて 出力 する プロ グラ ム を 示す . 

10 DIM (47) 





20 FOR エ =1 TO 47 | ラン ター 

cYe KK( エ ) = ニ O を リセ ッ ト 

40 NEXX 中 エ + 

50 FOR エニ = テ 1 TO 1000 

6O TNPUT RN 

り 0 TE N>47 THEN 140 (へ カ の 庄 9) 
80 KK( N ) = 人 ( N ) 1 府県 別 の 計数 
90 REX T 

100 FOR エ = テ 1 TO 40 | 
110 PRTRNT 了 工 , 交 (T) 結果 の 出力 
120 NEXT 1 
130 ERND 





140 PERTINT リ テ ー タ ー か が か お か し い 『 
150 REND 


都道府県コード (JISC6020) 


01 北海 道 11 埼玉 県 21 岐阜 県 31 鳥取 県 41 佐賀 県 

02 青森 県 12 千葉 県 22 静岡 県 32 島根 県 42 長崎 県 

03 岩手 県 13 東京 都 23 愛知 県 33 岡山 県 43 熊本 県 

04 宮城 県 14 神奈 川 県 24 三重 県 34 広島 県 44 大 分 県 

05 秋田 県 15 新潟 県 25 滋賀 県 35 山口 県 45 宮崎 県 

06 出 形 県 16 富山 県 26 京都 府 36 人 徳島 県 46 鹿児島 県 
07 福島 県 17 石川 県 27 大 阪 府 37 香川 県 47 沖縄 県 

08 茨城 県 18 福井 県 28 兵庫 県 38 愛媛 県 

09 栃木 県 19 山梨 県 29 奈良 県 39 高知 県 

10 群馬 県 20 長野 県 30 和歌 山県 40 福岡 県 
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O.@6 合 計 


z 箇 の デー ター ム の 。 の 。 …、 の, を 読み 込み , 
S ー ム の 十 必 十 … 十 2 
を 計算 し て 印刷 する に は 次 の よう に する . 


1 ) 部 分 和 を 表す 変数 を 設け , 
その 値 (出発 値 ) を 0 に し て お く . 
2) 第 1 項 , 第 2 項 。… の 順に 


項 の 値 を 計算 (また は 読み 込む ) 
項 の 値 を 部 分 和 に 加え る . 
最後 の 項 ま で 反復 . 

3 ) 部 分 和 の 最終 値 が 合計 値 で ある . 





[プロ グラ ム 例 ] 
10 TNPUT KR 
2O DTIM A(R) 
30 EOR エ = テ 1 TO KR 


5 0 TNPUT A(T) 
FOR エ =1 TO R 
60 REX 呈 1 
70 8 テーO 
80 POR エ テ 1 TO KR 
90 8 ニテ A( T ) 8 
100 NEB 文 呈 1 
110 PRTINT りこ うけ い りり:8 


ある いい は,。 次 の よう に し て も よい . 

10 TNPUT KN 

こく O 5S 三 0 

30 FEOR エ テ ュ 1 TO KR 

40 TNPUT A 

5 O 三 A 十 5 

6O NER 双 F エ 

70 PRTNT りこ に うけ い 『 り :8 
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5.9 不定 箇 数 の デー ター の 入力 


一 組 の デー ター の 。 の 2。 * の ヵ を 入力 する と き 。 デー ター の 人 箇 数 72 
が わか っ て いれ ば , 2 を 最初 に 入力 する こと が で きる が ,。 場合 に よっ て 
は 。 2 が わか ら な いと か 。 数 える の が めん どう だ か ら 数 を えな いで 済ま せ 


だ いと いう こと が ある 。 その よう な 場合 に は 。 最後 の デー ター に 何 か 
印 を 付け る か 。 ある い は 最後 の デー ター の 次 に 何 か 特 別 な 値 を 入れ る 
か し て 。 入力 を 終了 させ れ ば よい 、。 





( 例 ) 上 記 の よう な 方 式 で 。 不定 箇 数 の デー ター を 読み 込み 。 その 平均 
値 を 計算 する に は 。, た と えば 最後 の デー ター の 次 に 99999 を 入れ る こと に 
し て 。 次 の よう に 処理 すれ ば よい 、。 








(平均 値 ) 





値 が 99999? =ー 







2 に 1 を 加え る 穫 





10 SーO : KN= ニ O 

る 々 く O INPUT A 

30 1 A=99999 GOTO 60 
人 入り テーA 十 5 : NNーN 十 ユ 

50 GOTO 2 る 0 

6O PRTINT 『 へ いき ん ち = テ リノ /RN 
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5.10 分 類 集 


中 


合計 を 求め る に は 。 部 分 和 を 記憶 する た め の 変 数 (いわ ば 累計 器 ) 
を 設け , 最初 そこ を 0 に し て お いて 。 値 を 順に 加算 する の で ある が , 


分 類 集計 を 行なう に は , 上 記 の よう な 「 累 計器 ] を 分 類 の 数 だ け 用 意 
し , 最初 に どれ も 0 を 入れ て お き 。 各 デ ー タ ー を 仕分 けし て 該当 する 
| 累計 器 」 に 加算 し て いけ ば よい . 


分 類 集計 用 の 配列 を クリ ア 


デー ター を 読む 





仕分 け す る 
該当 する 部 分 和 に 加え る 
結果 を 印刷 する 終了 


( 例 ) 家計 簿 の 整理 を する プロ グラ ム を 作れ . デー ター と し て は 

日 付 支出 費目 コー ド 金額 
を 入れ る も の と する ., 日 付 は 年 月 を 省き 日 の み で , も し も 日 付 が 0 な ら 
ば , 「 入 力 デ ー タ ー の 終り 」 と 解釈 する こと に する . 支出 費目 コー ド は, 
た だ たとえば,。 食費 が 1, 住居 光熱 費 が 2。 と いう よう に 1 か ら 5 ま で ある 
と する 。 処理 と し て は , 日 付 別 の 集計 と , 支出 費目 別 の 集計 を 行なう こ 
と に する . 
[設計 ] 日 付 , 支出 費目 コー ド , 金額 を 変数 名 D, CO, A で 表し , 日 付 
別 案 計 に 配列 反 , 費目 別 案 計 に 配列 を 用 いる こと に する 。. 
配列 KK 日 付 ] 2 う … ーー 31 


小計 「 玉 | 太 | … 1 ーー 


配列 r, 偶 目 1 2 3 


4 5 
小計 La4lLglLsl[4l [gz」 
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[プロ グラ ム 例 ] 
10 DIM K(31) , 芽 (5 ) 
20 FOR D=1 TO 31 
3 0 K(D)=O 配列 を 
40 NEXT D 
50 FOR C=1 TO 5 泊 符 還 
50 (CO )= テ 0 所 列 ち を 
20 NEXT O 
80 INPUT D,O,A 
90 TE D=O GOTO 150 
100 TE D>31 GOTO 2z50 
110 IF CO>5 QGOTO ez50 
120 K(D)=K(D) 十 A 
130 TL(C)= エ (OO ) 十 A 
140 GOTO go 一 
150 PRTINT 「 ひ つ " け へ ~ つこ うけ い ! 
160 FOR D=1 IO 31 
190 PRTNT D,K(D) 日向 釣 外 押 
180 _ NEXT D 
190 PRTRNT 
る 00 PR1INT "ひも く へ | つこ うけ い 『! 
る 210 FOR COC=1 TO 5 
220 PRTNT O, エ L(O) { 黄 目 別 分 類 
230 NEXT O 
240 END 
る く 50 PRTINT "いれ な お し て くく た さい 『 
る 々 く 6O0 GOTO 80 入力 ミス な の で 入れ な お し を 要求 
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O. 1 平均 値 と 標準 偏差 


2 和信 の デー ター る 。 用 。 …。 を を 読み 込み , その 平均 値 と 標準 偏差 を 計 
算 し て 印刷 する プロ グラ ム を 作っ て みよ う . 
[計算 式 ] 一 般 に , z 科 の デー ター 呈 。 る 。 …。 の 平均 値 ヶ お よび 標 
準 偏差 値 の 計算 式 は , 


ー 1 ざさ _ / マ ーー Ns 
4 デー る を ? 三 z (r: ん ) 


[プロ グラ ム の 設計 ] 全部 の デー ター る, 名, …。 を を 記憶 装置 の 中 に 配 
列 ( 表 ) の 形 で 入れ て , 添字 付き 変数 の 形 で 扱う こと に する . 手順 は 
1) デー ター の 格納 場所 (配列 ) を 用 意 す る . 
2) 2 お よび デー ター 久 。 多 。 …。 る を 読み 込む . 
3) 2*: を 計算 する . 
4 ) それ を z で 割る (その 結果 が な). 
5 ) 2(X: 一 み )? を 計算 する . 
6) それ を >z で 割り 。 その 平方 根 を 求め る (その 結果 が oc). 
7 ) 結果 を 印刷 する . 
[プロ グラ ム 例 ] 
10 INPUT "N=":RN z を 読む 
20 DTIM 信 (N) 
30 POR エ = テ 1 TO KN 


40 TNPUT 文 (1T) デー ター を 読む 
50 NEXT エ 

60 W=O 

70 FOR エ = テ 1 TO 

80 W=W 十 文 (TI ) 2 を の 計算 


90 NE 区 華 エ 
100 MーW/R 平均 値 ヶ 


5.11 平均 値 と 標準 偏差 


1T10 
ユエ る O 
1 る 0 
上 0 
150 
160 
170 
180 


[ 別 解 ] 


10 
く 0 
っ O 
440 
ら O 
60 
7 0 
80 
9 0 
100 
110 
+ る 0 
30 
上 40 
150 
160 
170 


WO 

FEOR 1 エ = ュ 1 TO KR 
WW 十 ( 文 ( エ ) 一 M) へ る 

NEX 呈 T 

8S=SQR ( W ン NRN ) 

PRTINT "へ いき ん ち "LM 


PRTNT "ひょう し | ゅ ゆん へ ん さ 『。8 


BND 


N テ 5 
W ニ 0 
FOR エ テ ュ 1 TO KN 
RBEBAD 父 
WW 十 区 
NE 六 〒 1 
HH 世 TKKTNーW/R 
RESTOR モ 
W テ 0 
FOR エ = テ 1 TO KK 
REBAD 貢 
W 三 W 十 ( 文 一 革 選 T エ 区 TIN ) へ る 
N 尺 F 1 
HYOCOUJUNHENSA=SQER( W ノ RN ) 
PRTNT へ いき ん ち "| 。H 包 ILKTR 
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2 (テー ん) 
の 計算 


PRTNT "ひょう し | ゆん へ ん さり YOUJTUNHENSA 
DATA 153 る 。17 ウ 7 ウ 。168。159。161 


[備考 ] o = / 一 マール? と いう 式 は 誤差 が 入る の で 使わ な い 方 が よい . 
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O.12 相関 係 数 


デー ター。 衝 。 …。 和 多 と 攻 。 2。 …。 騙 を 読み 込み 。 相関 係数 


(だ た だ し 。 え 。 ツ 。 ひび > O ッ は , え ュ 。 2。 の *。 お よび 必 。 2 


均 値 お よび 標準 偏差 ) を 計算 する プロ グラ ム を 作っ て みよ う . 


10 

で 7) 

3 

生け 

つり ) 

らら 

アロ 

ロロ) 

10)0) 
11 
1 で 0 
1 3) 
1 4 
15 
1 6() 
1 70) 
1 ピロ OO 
190) 
で)O) 
〆10) 
ご と (0 
ご う O 
ご 人 4 
ょ の し) 
ご ら 0) 
デ /() 
eBQO 
ェ の ロリ 
さ 0C) 
さ 1 


[注意 ] 下記 の 公式 は 誤差 が 入り 易い の で 使わ な い 方 が よい . 


アー 2) (テー (アー 


22 び > ひ ッ 


REM キリ 一 本 一 奄 まあ の に 提 
IMFUT _N 
DIM X(N) 。Y() 
FR Im1 TO N 
INFUT X(T)』Y【T) 
NEXT II 
REM X。Y の へ いき ん もち MX 。 MY を も と め ふ 
MX テロ 
MY=Q 
FUR =1 TO N 
MX メニ X(【 エ ) 土居 
MY モ Y( エ )+ 軸 P 
NEXT 1 
MX メーMM メ /N 
MY=MY/N 
REM X』。Y の で し "よら 拉 で せき わ を も と る 
ウメ) 
5Y=Q 
らら XY= 
FOUR =1 TO N 
ロメ デニ (X( エ )ーMX) ビオ ら X 
5Y=(Y( エ 1) 一 MY) で ビ キ ら 5Y 
GSXY=(X( エ ) 一 MX)※ ま (Y( エ ) 一 MY) TSXY 
NEXT 1 
REIM ひよ うし 「 ゆん へ ん さ を も OX ロコ Y ど する 
ロメ =5GCIR(G メ アト) 
ら SY=SGR(SY/N) 
REM で うお か ん けい する 展 を も とめ る 
ド R= ニ 5XY/ (NXKGX※GY) 
FRINT R ド 
END 


222 つ 1 ルアー 2 ロイ 』 の コツ, 


グ 一 - ニ ーーーーーーーーー ーー 


y(z タ ーー( め 92 ーー( ダ みう 2 


ー 2 リア 一 722 え ダ 


ーー 7 ー 9( や ター タダ ) 
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O.13 移動 平均 


デー ター ム の 。 の @ の 。 …。 の の 5 点 移動 平均 を 計算 し 印刷 する プロ グラ ム 
を 作っ て みよ う 。 
結果 の 添字 の 付け 方 は いろ いろ ある が 。 中 央 点 の 添字 に あわ せ て 
6 三 (の 2 十 の コ 十 の g 十 の m 十 の jr2)/5 (2 三 3。 …。 一 2) 
で 示す こと に すれ ば プロ グラ ム は 次 の よう に な る 。. 


10 REM キリ ーー を よ カ あこ も 

<O_ INFUT "NN=" ュ N 

& ふ 0 DTM 全 (N) 。E(N) 

40 FOUR 1=1 TO N 

S0 FRINT の 伯 ( リ TE ョ リリ 7) ミ = リョ 

60 INFUT 人 台 (1) 

70 NEXT 1 

80_ REM いと " うべ へ いき ん の けい さん 
0 FOUR エミ = ミミ TH N-@ 
100 =Q) 

110 FUR ゴ = テ エー TO 1 エ +S 
< = (J ) + 選 

1 ぶ O NEXT J 

140 BEB( 1) =5/ 己 

1SQO_ NEX 丁 Ir 

16QO REM け コ お の し ゅ つけ よく 
170 FOUR 1=1 TH N 

180O FRINT (TI) 。E(1) 
190 NEX 丁 了 


行 80--150 を 次 の よう に し て も よい 


8B0_ REM し ゅ っ は ? つ あ る 

BS らら =O) 

0 FUR J=1 TO 5 

95 = (J) +@ 
10O_NEXT J 

105 BB ( さ ) =5/ 弓 

110 REM 9 お ミ し 

12O FUHR 1=4 TO N-2 
1 さ Q G=Gー ム (エー ミ ) + す 全 ( エキ つ ) 
140 HB(Ti) =5/5 
1SO_NEXT 1 
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5.14 行 和 と 列 和 


プー ー えん 計 三 1, で 722。 レー 
ィ ー タ クー 行 和 
7 ーー 1 。 * 22) を 読み 。 その S 
行 和 Si = 2 リル 
ルー | 〇 2 
列 和 7, 一 の イ ・ 
総計 ク ー を を S 7 


を 計算 し て 出力 する プロ グラ ム 
を 作っ て みよ う . この よう な 形 





列 和 7 ュ 


の 計算 は 会 計 事 務 や 統計 処理 に 
よく 現われ る . 
[プロ グラ ム 例 ] 練習 で ある か ら 7 み 。 2 は 5 以下 と し て よい で あろ う . 


10 
る OO 
SO 
0 
ら O 
60 
7Z 0 
80 
90 
100 
10 
[る 0O 
+ 30 
上 人 40 
150 
160 
170 
180 


DIM (5.5),S(5) ,T(5) 
PRTNT "MM,N= リ : 
TNPUT M,R 
FEOR エ = テ 1 TO 5 
8( エ ) = テ 0 
T(T )= テ 0O 
NEX 串 1 
ニテ O 
FOR エ = テ 1 TO M 
FEOR ゴ = テ 1 TO KN 
PRTN U 文 (リー エリ 1・ 本 サリ) ニニ リ ・ 
TNPUT 双 (T, 了 ) 
S( エ )=8( エ ) 十 文 ( エ T, 了 ) 
〒( ゴ )= テ m( ゴ ) 二 文 ( エ , 耳 ) 
クー 選 十 文 ( エ , 耳 ) 
NEX 呈 
NEXXm エ 
PRTNT 
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190 POR ユエ = ニ 1 TO M 

200 FEOR J=1 YO N 

210  。 PRTINT X( エ 。 了 ) 。 

220 。 NEXT 

230 。 PRTINT "TV:S(T) 

240 NEXT 1 L__ 5U5UW5U〔V〔〔、、 パ 6 パパ パパ た て 線 を 引く た め 
250 FEOR ゴ = ニ 1 mO RN+1 

260 PRTNT "ーーーーーーーーーーーーーー ーー 1 

270 NEXT ~ 了 

280 PRTNT リーーー リ 

290 FOR =1 TO KN 

300 PRTINT T( 了 ) 。 

310 NEXT 

320 PRTNT "TU : の 

350 END 

[出力 例 ]」 





[備考 ] 上 記 の プロ グラ ム を 改造 すれ ば 

行 ご と の 平均 値 。 列 ご と の 平均 値 

行 ご と の 分 散 列 ど と の 分 散 

ぶさ 。 つ 。 …。 5 ぁ の 分 散 

万 。 72。 …。 人 万, の 分 散 

な ど を 計算 で きる . この よう な 計算 は 統計 解析 の 際 に し ば し ば 必要 に な 
る . 
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5. 15 最大 値 , 最小 値 











還 一 組 の 値 も 。 名 。…。 を の 最大 値 で C を 求め る に は , 次 の よう に す 


れ ぱ ば よい. 
最初 仮り に = ニ ァ 」 と する 


Y 
2 三 2。 …。 2 に つい て 反復 





(反復 終了 時 の C の 値 が 最大 値 で ある ) 
呈 。 最小 値 も 同様 な 要領 で 求め る こと が で きる 。. 
画 最大 値 で と 最小 値 S を 同時 に 求め る に は 次 の よう に する 。 


最初 , ビデ, S ニャ と する 


に ーーーー 


(反復 終了 時 の 忌 , S の 値 が 最大 値 , 最小 値 で ある ) 
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[プロ グラ ム 例 ] デー ター ム 。 の @ の ,。 …。 6 の, の 最大 値 を 求め る に は 次 の よ 
うに すれ ば よい . 

300 MA メー テ A(1) 

310 FOR +T=2 TO KN 

320 TE MAX<A(1T) 呈 HEBN MAX= テ A(T) 

330 R 世 文 呈 1 

最大 値 だ け で な く , その 番号 も 必要 な 場合 は 次 の よう に する 。. 

300 MAXーA( ユ 1) : エニ ュ 

310 OR エ = テ 2 TO KN 

320 IE MA 双 ぐ <A( エ T) 呈 HEBN MAXーA(T ) : エニ ェ 

330 NEX 呈 1 

最小 値 を 求め る に は 次 の よう に する 

340 MTN=A(1) 

3 る 350 FOR エ = テ 2 TO KN 

36O 1E MIN>A(T) 呈 HEBN MTN=A(TI) 

370 NEXX 呈 T 1 

最大 値 と 最小 値 を 同時 に 求め る に は 次 の よう に する . 

300 MAX テ A(1) 

310 MTIN=A(1) 

320 OR エ テ = テ 2 TO KR 

330 IE MA 双 <A( エ ) 呈 本 EN MAX= テ A(1) 
(前 行 の 続き | GOTO 350 

340 1 下 MTN>A( エ ) 呈 理 EN MTN=A(1) 

350 KNEXT エ 

絶対 値 の 最大 値 を 求め る に は 次 の よう に する . 

300 MAX= テ ABS(A(1)) 

3 る 310 FEOR ユエ = テ 2 TO RN 

S2O 1E MA 双 て ABS(A(T) ) THEN MAX=ABS 

(前 行 の 続き ) |(A( { ) ) 
330 NEB 双 m エ 
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5. 16 大 き さ の 順に 並べ る 


一 組 の デー ター 呈 。 多 。 …。 を を 。 大 き さ の 順 ( 大 きい 順 。 まだ た は 小さ 
い 順 ) に 並べ 替え た いこ と が よく ある . この よう な 処理 を ソー ト (整列 , 
sorting) と いう 。 それ は 大 別して 

内 部 ソー ト 主 記憶 装置 の 中 で ソー ト を 行なう 

し mm 外部 記憶 装置 を 用 いて ソー ト を 行なう 
で ある 。 後者 は ,。 デー ター が 大 量 に あっ て 主 記 憶 装置 に 入り きれ な い 場 
合 に 用 いら れる . 内 部 ソー ト の 方 法 と し て は , 最大 値 法 (最小 値 法 ), 交 
換 法 . ヒー プ 法 な ど が ある . 外部 ソー ト に は , 普通 , マ ー ジ ・ ソ ー ト merge 
sort。 併合 法 ) と いう 方 法 が 用 いら れる . 


最大 値 法 大 きい 順に 並べ る に は 。 まず 最大 の も の を さがし ,。 次 


に それ を 除い た 残り の 中 で 最大 の も の を さがし 。 以下 同様 に 「 残 り の 
中 で の 最大 値 」 を さがし て 並べ て ゆけ ば よい . 





[プログ ラム 例 ] 
10 DTM 公 (100) 
20 TNPUT KR 


3 る 0 FOR エ = ニ 1 TO KN - 
デー ター の 読み 込み 


4 0 TNPUT 文 (T) 

50 NEB 父 呈 エ 

20 FOR エニ テ 1 TO KN 一 1 第 ? 回 め に は ぇ 
70 MI か ら ゃ まで の 間 
80 FOR ゴ テ ェ オ ]1 TO の 最大 値 を さがす 
90 TE 又 (M) ぐ 文 (本 ) 呈 EBN M ニ = 了 

100 NEXT 了 

110 SWAP 文 (T ) , 文 (M) 今回 の 最大 値 双 (M) を? 
120 NEXm エ 番 め の 位置 に も ちっ て くる 
130 EOR エ テ ュ 1 TO KR 
140 PRTRNT (T) 結果 の 印刷 


1L50 NE 失 T 
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交換 法 これ の 基本 形 は 「 隣 り 合 う 二 つの デー ター を 比較 し, 


正 順 (望ま し い 順 序 ) に な っ て いれ ば その まま 
逆順 ( 逆 の 順序 ) に な っ て いれ ば 入れ 奉 え る 


と いう 処理 を 。 列 の 最初 か ら 最 後 ま で 何 回 も ね くり か えす 」 と いう 方 法 
で ある . 詳し く 検 討 し て みる と , 反復 回 数 は 最大 z ヶ 一 1 回 で 十分 で あ 
り 。 第 ? 回 め に は 「 列 の 最初 か ら z ヶ 一 番 め まで 」 調べれ ば 十分 で ある 
こと が わか る . 





[プロ グラ ム 例 ] 


1 0 
TO 
っ O 
440 
SO 
60 
Z 0 
80 
90 
100 
1T10 
る 0 
+ る 0 
40 


DTM 文 (100 ) 
TNPUT 
FOM エ = ュ 1 TO KR 
TNPUT 文 ( エ ) 
NE 双 T Tr 
FOR M=ーN 一 1 TO 1 8ST 虹 選 一 ユ 
FOR J ゴ = テ ュ 1 TO M 
TE 文 ( 二 )> 文 ( ゴ 十 1 ) 呈 EEN 120 
SWAP 又 ( 耳 ) , 文 (本 十 1 ) 入れ 替え 
NEm〒 了 
NEXT M 
FOR エ = テ 1 TO KR 
PRTNT 文 (1) 結果 の 印刷 
NEX 呈 1 


デー ター の 読み 込み 


[実験 ] 上 の 処理 を トラ ンプ で や っ て みる と よい . 

1) トラ ンプ の 中 か ら 同 じ マ ー ク (た と えば ハー ト ) の カー ド だ け を 
集め 。 よく きっ て , 横 に 1 列 に 並べ る 

2 ) 左 か ら 順 に , 隣り あう 二 つ を 比較 し , 「 左 が 小 。 右 が 大 ] な ら ば 入 
れ 替 える . 

3 ) 完全 に 整列 する まで , 上 記 2 ) を 何 度 で も くり か えす . 
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デー ター の 人 箇 数 が 100 ぐ らい まで な ら ば 前 節 の 方 法 で 実用 上 十分 で 
ある . し か し デー ター の 量 が も っ と 多く な る と , これ ら の 方 法 は 計算 


の 手間 が 急増 し て 不利 に な る . その 理由 は , 要する に 。 反復 第 ? 回 の 処 
理 の 際 に 前 回 (第 z 一 1 回 ) まで の 情報 が 十分 に 生か され な いた めで あ 
る . これ を 改め る た め 。 トーナメント 試合 の 方 式 を 取り 入れ た の が ヒー 
プ 法 で ある . 





ビー プ 法 の デー ター 構造 
1 





[原理 ] 上 図 の よう な 組織 の 会 社 を 考え る . 当社 で は 常に 

(直系 の 上 司 の 実力 ) > (直系 の 部 下 の 実 力 ) 
と いう 関係 が 成り 立つ よう に し て いる .。 この 関係 を 維持 する た め , 人 事 
異動 は 次 の よう な 方 法 で 行なっ て いる . 

1) 社長 が 退任 し た と き は , 第 1 部長 と 第 2 部長 の 実力 を 比較 し , 実 
力 の ある 方 を 社長 に 昇格 きせ る . その 後任 に は , その 部 の 第 1 課長 の 第 
2 課長 の 内 , 実力 の ある 方 を 昇格 させ 。 その 後任 に は , その 課 の 第 1 係 
長 と 第 2 係長 の 内 の 実力 の ある 方 を 昇格 きせる. 以下 同様 . 

2) 新入 社員 を 採用 し た と き は , 一 応 。 最 下位 に 配属 する が 。 た だ ち 
に その 直属 の 上 司 と 実力 を 比較 し , 逆順 な ら 交 代 き させ 。 交代 し た 場合 は 
も う 一 つ 上 の 上 司 と 実力 を 比較 し , 逆順 な ら ば 交代 きせ る . 以下 同様 . 

3 ) 会 社 設 立 の 際 に は , 社員 な し の 状態 か ら 始め て , 上 図 の 番号 順に 
ボス ト を うめ て ゆき ,。 その た びに 上 記 2) の 処理 を 行なう . 
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左記 の よう な 組織 を ヒー プ (heap) と いう .。 これ を 用 いて ソー ト を 行 な 
うに は , まず デー ター 名 。 才 。 …。 を 上 記 3) に よっ て ヒー プ の 形 に 並 
べ , 次 に 「 社 長 ]」 の 所 か ら 一 人 ずつ 引き 抜い て 順に 並べ , その 後任 を 上 
記 1) の 方 法 で うめ て ゆけ ば よい .。 この よう な 処理 を BASIC で 行なう に 
は 左 図 の よう な 社員 番号 (配列 又 の 添字 ) を 用 いる と よい 。 こう する と 
上 司 の 番号 は 「 部 下 の 番号 の 1/2 の 整数 部 」」 また 部 下 の 番号 は 「 上 司 の 
番号 の 2 倍 ま た は それ プラ ス 1 」 と な り 容 易 に 上 下 の デ ー タ ー を 得る こ 
と が で きる 。 
[プロ グラ ム ] ヒー プ 法 の プロ グラ ム の 一 例 と し て , ヶ z 組 の デー ター 


イ ュ 1 
2 2 
イ ァ アア 


を 読み 込み ,。 これ を 「* の 値 の 小さ きい 順 ] に 並べ 替え る プロ グラ ム 例 を 以 
下 に 示す 。 実務 に お いて は , > (た と えば 成績 ) だ け を 並べ 替え て も あま 
り 意味 が な く , それ に 付随 する 情報 y ッ (た と えば 学生 番号 ) も 同時 に 入れ 
替え て ゆく 必要 が ある . 一 般 に は , 付随 する 情報 は 1 筒 と 限ら ちず, 複数 
軸 あ る か も し れ な い が , 処理 方 法 は 同じ な の で , ここ で は 1 人 箇 で 代表 さき 
せ て ある 。. 付随 情報 の 並べ 替え の た め , 最初 に UN と いう 配列 に 

1 2 3 tt ク 
を 入れ て お き 。 *, と る ゃ を 入れ 替え る と き に JUK( ? ) と JUN(7 ) も 入 
れ 替 えて いる . こう し て お け ば | 最初 に 2 番 の 位置 に あっ た デー ター が 最 
終 的 に どこ に 行っ た か 」 を 知る こと が で き 。 それ を 用 いて 付随 する デー 
ター の 並べ 替え を 行なう こと が で きる . じつは , この 例 の よう に , 付随 
する デー ター が 1 箇 ( こ の 例 で は ヶ ) だ け の 場合 は ,。 上 記 の よう に し な い 
で 。 |「z: と る を 入れ 替え る と き に み と 必 も 入れ 替え る 」 と いう 方 式 に す 
る 方 が 簡単 で メモ リー も 人 節約 に な る が 。 付随 する 項目 数 が 多い 場合 は 配 
下す UN を 用 いる 方 が 能率 が よい 、. 


100 


10 
づり 
了 
人 
っ 
ら 0 
フ Q 
BO) 
Q 


INFUTPN=TIN 

DI X(N) 』。Y (内 ) 

FUR !I=1 TU N 

INFUT X(I) 』Y(E) 

NEXT 1I 

REIM ポポ 水 氷水 氷 己 3D ロビ 人 東京 氷水 ※※ 
DIM JUN(N) 』。 YO (N) 

FUR 1=1 TO N 

JUN( 1 ) = 
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100) 
110) 
1 
1 さ 
1 40) 
1 950 
1 6() 
1 7 
1 8 
190) 
2000) 
ご 1 
の 
マ ご さ ひ 
7 
ご の () 
ご ら 0) 
デ ノ / 
< ご 
ァ ワ () 
ぶり 
さ 10 
さき るい 
ささ 
さ 人 4 
さっ (.) 
さら 
4) 
さら O) 
さ ワ (O) 


NEXT 1 

FUR し = TO N 

りーL 

IT=ITNT(J/) 

IF X(T) ミニ ミ X メ (JJ) GUTO 180 

5MAF _X( エ T)。X(J) g BMPF_ JUNKCE) 。 JUN (J) 
| 

IF JE1 THEN 13O 

NEXT し 

REM ※ 光 光束 ロコ ビ で 表 求 氷 ボ ※ 

FOUR MADE=N TO 選 STEF ー-1 

内 1HIT= ミ X(1) 』 NIGEL=JUN( 1 ) 

=1 

J 1 三信 米 1 

りー ジ ※ エ +1 

IF J1=MADE THEN TO=J1 』 ロ BOTO SBO 
IF J1EMADE GOTO さき 10 

IF X(J1) 2X(JE) THEN 1O0=J1 ELSE 10=J 
メ ( エ ) う =X(TO) 』 JUN(T)=JUNKTO) 

=10 

SUT0U SE き 30 

X(TO)=X(MaADE) gg JUN(iO) =JUN (MADE ) 
IT=10O 

トミ =ーTNT(T エ / で ) 

TIF XX(E) = ニ X(T) BUTOU さき 8 

SMAF_ X(1T)』X(E) g SBMAF_ JUN(E) 。JUN(E) 
1 =E 

IF IT5 ジ 1 THEN ささ OO 

X(MaDE) =TaATHI 』 JUN(HMADE ) =N IGE し 
NEXT MADE 
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40O_ REM 素 素 氷 氷 率 Y の な らら へ ガ 水 束 素 素 素 
410 FUR 1L=1 TH N 
4SO_YG(L)=Y(L) 

430 NEXT し 

440 FOR L=1 THUN 

450 LGBTLUIN (L-) 

460 Y(L)=YG(LQ) 

47O NEXT L 

48O RENM 素 素 水 束 氷 し ゆ つ けけ よく 表 素 洲 ※※ 涼 
490_ FRTNT りな 5 へ AT お 江 の けっ コ お が" 
BOO FOUR IT=1 TO N 

っ 410 FRINT X(T)』Y(T) 

SeO NEXT 1 


[解説 | 行 10ー50 は デー ター の 入力 , 行 80~100 は 配列 FUN の 初期 値 1, 2, 
… ぅ っ 7 の 格納 で ある . 行 110 て 180 が ヒー プ ・ ソ ー ト の 第 1 部 で , 「 第 し 人 め の 社 
員 の 新規 採用 と その 位置 づけ 」 の 処理 で ある . ここ で / ア は 実力 比較 を 行なう 部 
下 の 番 号 。 7 は その 上 司 の 番号 で , 最初 は 「 い ぃ いま 入っ た 社員 |] が / と な り , 
その 上 司 と 実力 比較 を 行なう が , そこ で 入れ 替え が 起こ っ た 場合 は 。 そ の 上 の 
階層 で の 比較 を 順に 行なっ て ゆく . こう し て 第 1 部 が 終る 時 点 ま で に 「※ の 値 
の 大 きい 順 ] の ヒー プ が で き あ が る . 

第 2 部 ( 行 190--3900 で は ,。 ヒー プ か ら 「 の 値 の 大 きい 順 」 に デー ター を 
と り 出 し 。 それ を 

え ァ えー ュ イ ョ ー2 *"* 2 ュ 

の 所 に 順に 入れ て ゆく (だ か ら 最 終 的 に は 「 小 きい 順 」 に な る わけ で ある )。 ヒー 
プ の 上 か ら デ ー タ ー を と り 出 し て , 席 が あく と ,。 その 部 下 2 人 (番号 了 1 と 了 
2) の 実力 を 比較 し , 大 きい 方 を 昇格 させ 。 その 空席 を 同様 に し て うめ て め ゆめ 
く . 最 下位 に 達し た ら 行 310 に 進み , 最 下 位 の 空席 に 「 社 員 番号 の 最後 」 (変数 
名 MAD 思 ) の デー ター を 移し , それ に 伴う 地位 補正 を 行ない ( 行 330-~370), 
空席 MAD の 所 に 先ほど 待避 させ て お いた 「 前 社長 」 を 格納 する . な お 。 結果 
を 文 と 別 の 所 に 入れ る こと に すれ ば 。 行 320 て 370 の 処理 は 不要 に な る . 
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り .16 演 習 


5.1 ( 複 径 数 の 加減 乗法 ) 二 つ の 複素 数 z, = 2 十 2 め 。 <。 三 c 十 2 の を 読み 込 
み 。 その 和 , 差 。 積 , 商 を 計算 し て 出力 する プロ グラ ム を 作れ . 


5.2 (曜日 ) 西暦 y 年 月 日 が 何 曜 日 か を 調べ る プロ グラ ム を 作れ . 
[ヒン ト ] 5.6 節 で 説明 し た 方 法 で 「1600 年 1 月 0 日 か ら の 日 数 ] パ を 計算 
し , それ を 7 で 割っ た 余り を と すれ ば , 次 の よう に な る . 

/ 0 1 2 3 4 5 6 

曜日 土 日 月 火 水 木 金 


5.3 (男女 別 の 平均 , 相関 係数 ) 身体 検査 の 測定 結果 を 
性 別 コ ー ド , 身長 , 体重 
の 形 で 入力 し (性 別 コ ー ド は 男 が 1, 女 が 2 で ある .。 JJS C-6264) 
1 ) 身長 の 男女 別 の 平均 値 
2 ) 体重 の 中 央 値 (メデ ィ ア ン ) 
3 ) 身長 と 体重 の 相関 係数 
を 計算 し て 出力 する プロ グラ ム を 作れ . 


5.4 ( 金 種別 計算 ) 給料 の 支払 い は 銀行 振込 み の 会 社 が 多く な っ た が 。 ま 
だ 現金 で 支給 し て いる 所 も 少な く な い . 現金 で 渡す 場合 に は , 各 人 の 給料 袋 に 
分 け て 入れ る 関係 上 , 1 万 円 札 の ほか に , 5 午 円 札 , 千 円 札 , 500 円 玉 , 百 円 
玉 。 十 円 玉 を , 必要 な 枚数 だ け 用 意 し な けれ ば な ら な い . その 必要 枚数 を 計算 
する の が 人 金 種別 計算 で ある 。 従業 員 z 人 (2 ミ 100 と する ) の 今月 の 現金 支給 額 
の 。 の 。 …。 の 。 を 読み 込み , 金 種別 計算 を 行なう プロ グラ ム を 作れ . 

[ヒン ト ] 各個 人 の 必要 枚数 は 次 の よう に し て 計算 で きる . 

(現金 支給 額 ) エ ( 1 万 ) = (1 万 円 札 枚数 ) 余 り ( 1 万 円 未満 ) 
(1 万 円 未満 ) エ (5 千 ) = (5 千 円 札 枚 数 ) 余り (5 千 円 末 満 ) 
(5 千 円 末 満 ) ニ ( 千 )=( 千 円 札 枚数 ) 祭 り ( 千 円 末 満 ) 


以下 同様 


O 数 値 計 算 


6. 1 パソ コン で 解け る 問題 の 例 


パソ コン で も 。 本 格 的 な 数 値 計算 が 可能 で ある 参考 まで に ,「 こ ん な 
問題 が 簡単 に 解け る 」 と いう 二 , 三 の 例 を 紹介 する . 

連立 1 次 方 程 式 本 章 6.15 侵 の プロ グラ ム で 50 元 ぐら いま で な ら ば 
解け る . 所 要 時 間 は 

30 元 で 約 3 分 半 
50 元 で 約 15 分 
程度 で ある (PC-8001 に よる 実測 値 ). 

高 次 代数 方 程 式 「 高 次 ] と いっ て も ,。 むやみ に 次 数 の 高い も の (た 
と えば 100 次 方 程 式 ) は 誤差 が 入り 易く , その た め 大 型 コ ンピュータ ー で 
も 簡単 に は 解け な い 。 し か し 10 次 ぐら いま で な ら ば , 本 章 6.10 人 の プロ 
グラ ム で だ た いて い 解 ける . 所 要 時 間 は バ (収束 の ぐあい に 関係 する の で 問 
題 ご と に 異な る が ) た と えば 7 次 方 程 式 

7 十 Z? 十 5 十 え * 十 えッ 士 々 タ 十 ィ 0 
の 場合 。 約 15 秒 で ある (Level-3 に よる 実測 値 )。 

常 徴 分 方 程 式 連立, 高階, あるいは 非線形 で あっ て も 比較 的 容易 

に 解け る の が 数 値 解 法 の 強み で ある . 

( 例 ) 問 題 非線形 振動 
方 程 式 ダ 二 smy テ 0 初期 条件 ッ (0) ニ 3。 ダ (⑩0)=0 
計算 館 囲 0=zs<10 進み 幅 ファ =0.1 
所 要 時 間 48 秒 


* ま 数 値 計算 に 興味 が な けれ ば ,。 と ば し て 次 の 章 に 進ん で よい 、 
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6.2 利用 者 が 定義 する 関数 


組込み 関数 (3.7 節 参照 ) 以外 の 関数 は , 自分 で 作ら な けれ ば な ら な 
い . そ れ を 一 つの プロ グラ ム の 中 の 何 箇所 も で 使う の で あれ ば , サブ ルー 
チン の 形 で 扱う の が よい で あろ う . し か し , 特に , 関数 の 計算 式 が 1 行 
で 書け る 場合 に は , 「 利 用 者 が 定義 する 関数 ] と いう 形 で 扱う と 

引数 を 設け る こと が で きる 


算術 式 の 中 に 書け る 
と いう 利点 が ある . 













下関 数 を 定義 むる に は DEE 文 を 用 いる . これ は 次 の 形式 で 書く . 
DEF 関数 名 い 仮 引数 ) = その 関数 の 計算 式 

mm 関数 名 は 3 文字 以上 で , 

先頭 2 文字 は EN に 限る 

第 3 字 は 英字 に 限る 

(正しい 例 ) FNA ENO 

(誤り の 例 ) TAN FUNOTTOR 

。 仮 引数 が 不要 な ら ば 無く て も よい . その 場合 の 形 は 
DEF 関数 名 三 そ の 関数 の 定義 式 





















と な る 。 
皿 。 仮 引数 と し て は 変数 名 を 書く . 本 文 の 変数 名 と 重複 可 . 

mm 関数 は , 関数 名 ( 実 引数 ) の 形 で 代入 文 な どの 式 の 中 に 書く こと 
が で きる 。 実 引数 と し て は , 定数 , 変数 の ほか , 式 を 書い て も よい 、。 
引数 な し の 関数 は 関数 名 だ け で 引用 され る . 





ぐる 。 DBE 文 は 。 そこ を プロ グラ ム の 流れ が 通過 する と き に 関数 が 「 定 
義 ] され る . 単に 「 プ ログ ラム の - 一 部 に 書い て ある 」 だ け で は 有効 に な 
ら な いこ と が ある の で 注意 を 要する . 
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6.3 自分 で 簡単 に 作れ る 関数 


下記 の 関数 は 組込み 関数 に 入っ て いな い が , DEFE 文 に よっ て 容易 に 
自作 する こと が で きる . 

sinh*= そ ー タ ー 

cosh ャ = テイ ター 


tanh * = sinh ヶ /cosh 


arCSin * 一 arCtan 


ジ 
y 1 一 *<* 
arCCOS r 三 /2 一 arCS1m そ 


3/ ァ ーー ァ V3 





[プロ グラ ム 例 ] 
上 記 の 関数 を BASIC で 書い た 例 を 示す .。 
DEE ENSH(XX ) =( RBXE( 交 ) 一 包 双 (一 多 ) ) ノ る 2 
DEE ENO 五 ( 交 ) 三 ( EXP( 郊 ) 十 思 又 P( 一 区 ) ) ノ る 2 
DBE ERNTH( XX ) =FNSH( 又 ) ノ NOH(XX) 
DEE ENAS( 文 ) ニ ATN( 文 SQR (ユー*X ) ) 
D 包 F FENAOC( 文 ) ニ 1 .5270796 二 FNAS() 
[使用 例 ] 上 の 関数 を 用 いて 数 表 を 作成 する 例 を 示す . 
10 DE FNSH( 文 ) ニ (BB 双 P( 文 ) 一 選 文 (一 区 ) ) 2 
20 FEOR =ーO TO 2 STEBP O.1 


30 Yー ニ FNSH( 多 ) 

40 PRTRNPT 双 ,Y 

50 NREXT 文 [出力 例 ] 0 0 
。 1 10016Z 
。 2 。2Z01336 
。 づ 。30452 
。4 。410752 
) 。 つ 21095 
。6 。636654 
。 。 7 っ 8584 
8 。888106 


・ フ 1 。02652 
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6.4 近似 式 


コン ピュ ー タ ー- で 関数 値 を 計算 する 方 法 と し て は 
近似 式 で 計算 する 
数 表 を 補間 し て 用 いる 
の 二 つ が 基本 的 で ある . 近似 式 と し て は , Taylor 級数 
( 例 ) 





〆= ュ + オ 者 震 + + キ プー 

ーー 

Sm テニ ゴ イー 351 上 語 ー ツ キオ (ー リ を T11 1 
ー イイ ダリ 

cos*= ニ ュー 苦 す 拓 一 ト に 0 る 5 す 


を 有限 項 で 打ち 切っ て 計算 する こと が まず 考え られ る が , 上 記 の 三 つ の 
級数 は 収束 が 非常 に 速い の で ,。 た と えば | ヶ | ミ 1 の 範囲 で 用 いる 場合 
e* で 10 項 。 sin ヶ 。 coSy で 5 項 も と れ ば 誤差 を 10 以下 に する こと が で 
きる . し か し 。 収束 が 非常 に 遅い 級数 も ある . 





( 例 ) 
arctan* ヶ ニャー を ょ を …… 十 ( 一 1) * 十 
ー 3 5 2 ルイ 1 
証し 間 還 還 0 ト す "・ を 生 
log(1 十 >) 三 ァ > 十 3 十 ( 一 ) 「 十 


よく 使わ れる 関数 に つい て は 。 も っ と 能率 の よい 計算 法 が 研究 され, 
近似 公式 が 作ら れ て いる 。 


常用 対数 の 簡単 な 近似 式 の 一 例 (Hastings の 公式 ) 


ー1 ー 
logi。 * ー ea( そ キ )+e( を ーー ) * 


c」 三 0.86304 cs 三 0.3645 


適用 範囲 ー ミ * ミ /10 最大 誤差 約 5x10- 
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tan* の 近似 式 の 一 例 (永坂 の 公式 ) 


っ 2.6252949 
4 (0.13451446 十 4 .0333293ー ァ 2 ) テ 


適用 館 囲 1 ミ * ミ 1 最大 誤差 2.5x10-? 
誤差 関数 の 近似 式 の 一 例 (Hastings の 公式 ) 


を の が 全 1 ーーーーーー ーー 


ソ / ァ (1 十 の g ァ の 2 十 の 79 十 の 4 の 1 
の 」 三 0.278393 の 6。 三 0.000972 
6。 王 0.230389 6。 三 0.078108 
適用 範囲 0 ミ x く oo 最大 誤差 5<10* 
Bessel 関数 の 近似 式 の 一 例 (Allen の 公式 ) 


tan 


ん ( 々 ) 三 の 十 の す | 2 十 の 。 人 | 4 圭二 の 。 人 | 12 


6 の 。 三 1 の 」 三 一 2.2499997 の 。 三 1.2656208 
ー0.3163866 6。 王 0.0444479 
6。 三 一 0.0039444 6。 三 0.0002100 
適用 範 隆 一 や ミ * ミ 3 最大 誤差 10"* 
ガン マ 関 数 。 ガン マ 関 数 7( 々 ) の 値 を 計算 する に は , まず , 公式 
(と 十 1) ニ ィ ゲ (て ) 
を くり か え し 使っ て 引数 を 1 ミ z ミ 2 の 範囲 に 移し , Hastings の 近似 式 
(31 番 ) 


Q 
) 
| 


(1 十 ヶ ) ニ 1 十 テ 十 6 の 27 十 の 2 パー の 十 8“* 


の 」 三 一 0.5748646 の 6。 三 0.9512363 
の 。 三 一 0.6998588 6。 王 0.4245549 
の 。 三 一 0.1010678 


を 用 いる の が 比較 的 簡単 で ある . 


[本 
al 
据 
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6.5 級 数 の 和 


級数 


ユー 1 1 1 
1 キオ 宇 すす 宇 オ " サ 1 


の 和 を 計算 する プロ グラ ム を 作っ て みよ う .。 
[設計 ] を の 値 を 0 から 10 ま で 変え て , 第 を 項 2。 = 1/ を ! の 値 を 計算 
し 。 合計 すれ ば よい で あろ う 。g の 。 の 値 を 計算 する に は , を 々 ! の 値 を 求め て 
逆数 を と る , と いう 方 法 も 考え られ る が , 





1 0 1 1 1. 

ォ *ー 1! を (を 1! ん 人 つ 
と いう 関係 を 用 いて , 

の 。 三 1 


6 の 。 一 の 4_i/ ん (を 三 1。 2。 …。 10) 
の 形 で 計算 する 方 が 人 簡単 で あ も る. その 合計 を 求め る に は , 第 を 項 ま で の 
部 分 和 を S。 と し て 。 や は り 洗 化 式 の 形 

Ss 三 1 

SO。 三 Ski 十 の ん (ん 三 1。 2。 …。 10) 
で 計算 する こと が で きる . な お 。 4。 S』 が 計算 きれ れ ば ,。 以後 は 。 4-」, 
Sx ュ は 必要 な いか ら ,。 それ を 消し て 同じ 場所 に 書き 込む こと に する と , 
記憶 場所 は 一 般 項 の 部 分 和 の た め に 各 1 語 あ れ ば よい 、. 


[プロ グラ ム 例 ] 
1 〇 OO A ニ 1 ユ 一 般 項 。 最初 は 1 
る O 8 ニテ ユ 部 分 和 , 最初 は 1 
30 EOR 公 テ 1 TO 10 
40 ムーA ノ 区 6。 の 計算 
oO ら ー ご 十 A 部 分 和 に 加え 込む 


60 NE 双 T 区 
70 PRTINT S 結果 の 印刷 
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6.6 多項式 の 値 の 計算 法 


多項式 の 値 を 計算 する に は , 
ど /() = の 7 十 の メ リ 十 の イタ ーー の ーッ 2 そ 十 の コテ 十 の 。 
ー((…(( の そえ 十 の ) ィ 十 の ) ィ 十 … 十 の 2) そ 十 の ュ ) テ 十 の 。 
と 変形 し , 次 の 形 で 計算 する と よい . 
S 三 の 


2 三 1。 2 …。 22 の 順に 
1 灯 S ーー ぐ ・ え テ 十 の 





( 例 ) * の 値 を 読み 込み 
Y 三 2 ヶ ? 十 7 ァ * 十 6x 十 11 
の 値 を 計算 し て 印刷 する プロ グラ ム を 作っ て みよ う . 
[プロ グラ ム 例 ] 上 記 の 注意 に 従い 
三 ((2 ァ 十 7) ァ 十 6) ヶ 十 11 
と いう 形 に 変形 し て 計算 する . 
10 TINPUT 文 


20 Yー( ( る 素 文 十 ) 玉 文 士 6 ) * 文 二 1 1 
30 PRINT Y 


( 例 ) 係数 の 6,。 る 。 …,。 の が 配列 A (添字 0。 1。 …,。 の) に 入っ て いる 場合 に 
は 次 の よう に する 。 

100 1TNPUT 双 

110 Y テ A(O) 

120 FOR T エ = テ 1 TO KN 

130 マーY キ 米 文 十 A( { ) 

140 NREXT エ 

150 PRINT Y 

(上 記 の プロ グラ ム を テス ト す る た め の デ ー タ ー 入 力 ) 
10 READ KN 

20 FOR + エ =O TO KR 

30 READ A(1) 

40 NEXT T 

50 DATA 3,2,7 の 7。6,11 
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6.7 多項式 の 積 


多項式 
の (*) = の 十 ヶ 十 2227 十 … 十 の の 
の ( 々 ) 三 の 6 の 十 ちち テ 十 の 十 … 十 の ダリ 二 のち み の 
の 積 
だ (*) = の 6 十 c 十 7 十 … 十 て と て 7 
を 計算 する に は , 次 の よう に する の が 簡単 で ある . 
最初 , ニム ニー…ー ニ cx。 三 0 に し て お く . 


… っ 2 に つい て 


… っ うっ 722 に つい て 


C+ テ ( こ 6, の, を 加え る 


[プロ グラ ム 例 ] 
10 TINPUT RN : DTIM A(RN) 
20 FOR エ テ O TO KR 
30 TNPUT A(TI) 
40 NEX 呈 1 
50 TITNPUT M : DTM B(M) 
60 FEOR エ テ O TO M 
0 TNPUT 選 (1T) 
80O NEXT エ 
90 DTIM CO(MHTR ) 
100 FOR エ = テ O TO RN 


上 10 FEOR ゴ =O TO M 
る 0 C( エ 二 耳 ) 三 A( エ ) * 巳 ( 耳 ) 十 C( エ 士 了 ) 
うら 0 NE 区 二 


上 人 40 NEB 文 T エ T 

150 OR エーO TO MT+N 

160 PRTINT VC( リ ii エリ )= リ :O( エ ) 
170 R 選 文 F〒 エ T 


計 
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6.8 組立 除 法 


% 次 多項式 
の ( ヶ ) 三 2 を 7 十 の テト 二 の ル ビタ 2 二 … 十 の 十 の 。 
を ァ ーc で 整 除 し た 商 
の (*) = な 土 ち ィ 本 7 十 あ ィ だ 3 二 … 十 あ に 2 え 十 の ー」 


と 奈 り ア を 求め る に は 。 組立 除法 を 用 いる と よい 。 計算 式 は 
の 一 


> … っ 2 の 順に 
ーー 6, 十 の,_」 
パテ = テム 





[解説 ] 多項式 の 割り 算 の 要領 は 普通 の 数 の 割り 算 と 同じ . 





( 例 ) え 十 8 メー の 」 ル デー ター の 。 7ー3 
ァ ー 3 22 5 ァ ー11 メー と フル ォ ト 2」 ァ 71 の イータ 十 の 3 ダマ 十 ・…・ 
ダー3 ァ タメ ター" 
8 メー11 ( 十 c) ィ 7ー1 十 gy 
8 ィ ー24 の 」 ィ アーー ム cy ゲー 
13 (2z 十 nc) * ゲ 2 十 の 7ー 


その 計算 式 の 数 値 的 部 分 だ け を 抜き 書き し た の が 上 の 公式 で ある . 
[プロ グラ ム 例 ] 

10 TNPUT "NOC=":N。C 

20 DIM A(R) ,B(R) 

30 FOR 1 エ =O TO KR 

40 TNPUT A(1) 

50 NEX 叩 Ir 

6O B(O)= テ A(O) 

2720 FOR エ = テ 1 TO KR 

80 B ( 1 ) =B( エー1 ) *※C 十 A( エ ) 

90 NEXT 1 

100 FOR エー テ O TO KRNー ュ 

110 PRTNT "B(『!: エ 0)= リ :B( エ ) 
120 REB 又 F エ 

130 PRTINT "Rー リ : 互 (KN) 
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6.9 方 程 式 7(x) 三 0 の 根 


方 程 式 /(z) = 0 の 実 根 の 計算 に よく 使わ れる 方 法 と し て は 次 の よう 
な も の が ある . 


Newton 法 適当 な 第 1 近似 値  ^ 
か ら 出 発し て 。 


ズ 
4 ュー メル メー (えん ) 


(を = 1。 2。…) に よっ て 精度 を 高め て 

ゆく .。 上 式 は 。 点 (xx。 以 ) に お いて 。 O ひ 

曲線 ッ タニ テア (*) の 接線 を 引き , * 軸 と の 交点 を *』」 と する こと を 意味 
し , 要する に ア ( 々 ) を 局部 的 に 1 次 式 で 近似 し て 近似 解 を 求め て いる わ 
け で ある 。 根 に 近づく に し た が っ て ,。 この 近似 の 精度 が 良く な る た め , 
収束 は し だ い に 速 く な る . 適当 な 第 1 近似 値 が わか っ て いる 場合 に は 
非常 に 良い (速い ) 方法 で ある . 





[プロ グラ ム 例 ] 方 程 式 々 ーcos ァ =0 を 解く プロ グラ ム を 作っ て みよ 
う 。 ア ( 々 ) ニャ ーcos *。( 々 ) 三 1 十 sin y で ある か ら 。 


4 一 COS えん 
1 十 SIn え 。 


を 反復 すれ ば よい 。 出発 値 は 々 三 1 に と る こと に する 。 


えな ュー 一 


10 ニュ 

20 FOR 人 ニ 1 TO 10 

30 Fー ニ メーCO8( 多 ) 

40 D= テ 1 十 81IRN( 文 ) 

50 メー メーE ノ D 

60 TE ABS(E) ぐ く O.OO001 GOTO 80 


70 NE 区 区 
80 PRINT テリ: 文 
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2 分 法 最初 に , ア (*) > 0 に な る 
点 志 と 。( ヶ ) く 0 に な る 点 ァ > を さ が 
し て お く .。 次 に ァ と ぇ の 中 点 * に 
お いて 関数 値 を 計算 し , その 符号 を 調 り 
べ る 。 も し これ が 正 な ら ば 根 は *- と 
* 品 の 間 に あ り ,。 負 な ら ば 根 は ぇ ゎ . と 
* の 間 に あ る か ら 。 それ に よっ て *. ま だ た は *- を xr』 で 置き 換え て 同 
様 な 計算 を 反復 すれ ば よい . 








[ブログ ラム 例 ] 左記 の 例 と 同じ 方 程 
式 x 一 cos ヶ =0 の 根 を 計算 する 場合 の 
プロ グラ ム 例 を 示す 。 出発 値 は 

ァ _ 三 0 ァ , 三 1 
と する . 根 の 存在 範囲 は 反復 1 回 ご と 
に 1/2 に な っ て ゆく か ら ,10 回 反復 すれ 





ば | 衝 ー ヶ | ニ 2-0 三 103 に な る . 
LO 又 M テ 0 ( テ _) 
る 0 文 ピ = テ ュ (*+) 
30 POR 人 ニュ 1 TO 10 
40 文 ー( 双 M 十 文 刀 ) ノ る 
50 F ニ メーCO8( ) 出 
6 0 TER EE ぐ OO 中 是 選 N 又 M テ 文選 TLS 選 又 三 駐 


7Z0 NEXFT 区 
80 PRTINT リリ 文 ー ニ リ : 文 
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6.10 高 次 代数 方 程 式 


本 人 節 で は , 実 係数 の z 次 代数 方 程 式 
アキ の イリ 二 の ル ビタ 十 … 十 の ニ え 十 gg 0 
の すべ て の 根 ( 実 根 , 複素 根 と も ) を 計算 する た め の Bairstow 
-Hitchcock 法 に つい て 説明 する . 
[原理 ] 上 記 の 方 程 式 の 左辺 を 7(x) と する . これ を , 実 係数 の 2 次 式 
** 十 か が 十 9 と 。 一 2 次 式 
9( ィ ) ニ ィ デ ビタ 十 ち 人 3 十 4 二 … 十 の 十 の 2 
の 積 に 因数 分 解す る こと を 考え る *. 
ア (*) ニ (*? 十 が 十 9) 9( ィ ) 
この 分 解 が で きれ ば , 2 次 方 程 式 ** 十 立 二 の = テ 0 を 解い て 二 つ の 根 が 得 
られ , 9( ァ ) の 方 は また 今 と 同様 な 因数 分 解 を し て ゆく こと が で きる で あ 
ろう . 問題 は いか に し て 上 記 の よう な か ヵ , 9 を 求め る か で ある が , 
Bairstow-Hitchcock 法 で は 次 の ひよ うに する 。. 
まず , み と g の 出発 値 (第 1 近似 値 ) を 適当 に 選ぶ そして,。 2 次 式 
2? 十 の が x 十 9 で ( ヶ ) を 割っ て みる . その 商 を の ( ヶ ), その 係数 を ム 。 ム , 
…。 の 62。 余り を な 十 s と する 割り算 の 要領 は 


7 十 77 土 … 十 の 。- 5 
ダダ 十 が 十 9 7 二 の ィ の リ 二 g の 27 フー… 十 の 。ー ュ メル 十 の 。 
7 十 が 十 の 7ー< 
の ゲー) 十 の 」 が 7 人 十 の * 
以下 同様 
乏 り 。 十 5 


計算 式 は 右記 1) の と お り で 。 ヶ 三 の ,_ ュ 。 S 王 の , 十 の の 。_」 と な る 。. 


* 実 係数 の 代数 方 程 式 の 複素 根 は 必ず 共役 複素 数 に な る の で , この よ な 実 
係数 の 因数 分 解 が 可能 で ある . 1 次 式 と 一 1 次 式 の 積 に 分 解 し よう と する 
と 。 一 般 に 複素 係数 の 多項式 に な り 計 算 に 手間 が か か る . 
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み と の を 与え る と ヶ と s が 決ま る の で ある か ら 。 ヶ と Ss は みか と の の 関 
数 で ある 。 それ が 同時 に 0 に な る よう に 。 カ ヵ ,。 7 の の 値 を 修正 する 。 修正 量 
を プ ヵ 。 4 と し 2 変数 の Taylor 展開 の 1 次 の 項 ま で と る と すれ ば 


29 ヶ ( の 。 の) 十 坪 ー うり 4 ヵ + と 8g ー4g=0 


|。 ゅ +2 が 949) = 5( の 9) + 3 22+ 倒 22=0 


を 解い て 2 ヵ , 4 を 決め れ ば よい . その 係数 は 次 の よう に し て 求め る . 


(2 十 克 十 9) 9( ヶ ) 十 ( 之 十 s) ニア ( 々 ) (定義 より ) 
の (と ) 十 が の 1 50 テト 5 ーー0 て | 


し た が っ て , のみ (*) 王 ( ツ 十 婦 十 の 9) の 余り の , * の 係数 が 一 9 ヶ /9g で 定数 項 
が 一 6s/9g。 同様 に zg(*) 王 (** 十 學 十 の ) の 祭り の * の 係数 が 一 9 ヶ /9 の , 
定数 項 が 一 9s/9 ヵ の で ある 。. 
[計算 手順 ] 以上 を まとめ る と , 次 の よう に な る . 
1) ム ニ テニ ムー カ ニテ ムーム ムー 
2 三 3。…。 2 の 順に 
ヒュ ュ 。ー ー ggー の の ュー の の ,_。 
2 ) ニム ー カ 。 = 一 一 
2 三 3。 …。 2 一 1 の 順に 
ei 王 一 の c- ュ ー の Cr-2 二 
3) 連立 1 次 方 程 式 “* 
cz-2 グ カ 十 cs の モー の -」 
(eg ュー イカ 十 2 イッ = の 
を 解い て 4 ヵ , 4g を 求め る . 
4 ) 新 の ニカ + プ カ 、 新 9 9 十 29 
5 ) *“ 十 十 9 = 0 (その 根 が も と の 方 程 式 の 根 に な る ) 
新 の, 三 (2 三 1。、2。 …。 一 2)。 新 2 三 2 一 2 と し て 。 手順 1 に 
も どる . た だ し z ヶ ミミ 2 なら ば 直接 解い て 計算 終了 に する . 
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10) 

る ) 

さぶ 0 

人 

ら ) 

ら 6 

7 

80 

9 ヴ 0 

100) 
110 
1 で O 
1 30) 
1 4 
150) 
1 60 
1 7 
180 
1 9 
ご 0() 
ご 10 
で で ダ () 
で ぶさ) 
ご オイ 0 
で ご ら () 
どら 0 
ご アア 
ご BOO 
ご の 
5)() 
310 
ふさ で ) 


あう) 


っ 馬 
ご)() 
さら 
ュ フ ブロ 
ェ B 
さあ ワ ウロ 
406) 
全 10O 
420 
馬 3() 
440 


RE 壮 提 井 韻 井 井 韻 排 境 韻 揚 井 韻 韻 井 拉 韻 
REM 提 こう し * た" いす うほ う て い し 
REM 乾 Ha1 ビ ニキ ロ いぼ ほう 
REIN 牛 拓 韻 韻 韻 振 韻 韻 杜 韻 斗 准 韻 韻 韻 韻 韻 
RE 上 
REIMM 一 ーーーーー 〒 エ "ーー の よ カ ニカ 
INFUT "N="sN 
DIM (N) 。B(N) 。C(N) 
DIM X(N) 。Y(N) 

FUR 1=1 TU N 

FRINT "XX の UaN-Tg DL よう 
INFUT (1) 

NEXT 1 

REM し ゅ う ぞ やく は ん てい の し "よう 
FE =() 。 7.) 1 

REM さい た "いい は AS て お ガ い すう 
FM 人 AX ミニ 100) 

REM ーーー こん を こ す " つ も を と 
FOUR _ M=N _ TD る STEF - 
FUR _ REURIERES エ IT=1 TH 5 
REM F と CD の し L ゅ っ CO つも を らん 
ビデ =RND 

ロロ =RND 

REIM ーーーーーー 計 ず sh 一 コ ? 
FR ド ビ =1 TH EEMAX 

REM 。。。 B の けい さん 4 。。。 
E(1) = 人 (1 ) - 

RE( で ) =( ダ で )ーFP※BE(1) 一 品 
FUHR 1T= う TO MM 
B(T)= 馬 (上 エ )ーF ビ KB( エ オー1) 一 
NEXT 1 

REM 。。。 C の けい さん 。。。 
C(1)=E(1)- ビ 

C (GS) =B(G) 一 FWC(1)- 器 
1F MM: さ BUTO BO 

で 1 

G ロ TU 430 

FOUR 上 = ミュ TH 内 ー1 
EC(T)=EB( エ T) 一 PP*C( エ ユー1) 一 器 
NEX 丁 + 

RE 。。。 ほ せ いけ よう 人 の けい さん 
で = ビ (一 計 ) 

仙 ]C (MM) 

計 = じ ( 由 ー1) 一 B (MMー1 ) 


六 
き を と < 間 
六 揚 


の けい すう 『" ョ 


すう 5 


め る ーーー 


すう つて" きめ る 


ーー で ーー・ ーー ニー・ ーー 


(エー ビジ ) 


*( し に (エージ) 
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45C) 
人 4560) 
470 
4 コロ 0 
49 
紀 OC) 
5100) 
50 
ささ) 
4 
ロロ () 
うら 6 
7() 
580) 
ご ワ () 
ら 0G) 
ら 610 
ら 6 ダ O 
ら ふ 0) 
ら 4 
ご コ () 
ら 660) 
ら 670 
6BO 
ら 690) 
7 プ 00 
710Q 
ノビ ゼロ 
プス) 
4 
750J) 
760) 
アプ 70) 
78BO) 
ア 790 
は OO 
B10) 
GBS) 
は さ O 
4) 
850) 
は 6 の 
7 
8BQO 


4 モビ じ ( 四 - 記 ) 

B1=B( 聞 ー1 ) 

ロ デ =E (MM) 

D= 人 1 人 人 オー 人 人 3 

PF1= ニ (RB1% 谷 オー ロジ ネル 介 ) /D 

1 ニモ ( 有 1% ロ ジー 人 ふさ ※%B1) /D 
REM 。。。 F と CD の ほほ せ い 。。。 

に テ ド +F 1 

IIPEJP 和 | 

REM 。。。 し ゅ うそ で は ん て で てい 。。 < 
IF 人 BS(E1)+aBS(EEDSE BOTOU 600 
NEX] 世 

NEXT_EURIERAES TI 

FRITNT PT は AN て 全 る ち き 9 


STOF 
D=F*F-4※ ロ 

IF DO THEN 690 

REM ーーーーーー し * コ こ ん の は *" あい ーーーーーー 


メ 1 = ニ (ー ビ +SGIR(D) ) / 伺 
= ニ (ーFPーSQR(D) ) / 人 2 
FIRTINT X1 
FRTINT X 
GUTOU 740 
REM ーーーーーー ゆく そこ ん の は 3* あい ーーーーーー 
ド = ニ ー ド ' / で 
5=SGR (一 D ) / 父 
FRINT Rg" + リ 85S ョ IT" よ 上 
F'R' INT 0H リー リョ 5s UTU 
REM ーーーーーーー エリ コレ ルー ヨコ ヨ ニ ュー ーーー ツ の ツー 
1F MM GOTOU BZ 
FUR 1=1 TO 内 - 避 
和合 ([T)=B(1) 
NEXT I 
NEXT M 
REM ーーー の こ 9 の ニニ ん を し mp つけ 9 よく ーーーー 
IF _ N=INT(N/S) う * 人 で GOTO BS は QO 
FRINT -B(1) 
BUDTO 7 
F=E(1 ) 
=B (人 G) 
内 ニ 全 
GTOH 6Q0 
FRTINT "お も 9! 
END 
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6.11 数 表 の 使い 方 


表 の 読み 込み 数 表 は DATTA 文 で 書い て お いて REBAD 文 で 読 


み 込 むと よい 。 





[プロ グラ ム 例 ] 
10 REBAD 
20 DIM (N) ,Y(N) 
30 FOR エ テ ュ 1 "TO KN 
40 REBAD 文 (T ) ,Y( エ ) 
50 NEX 呈 1 
60 DATA ヶ z の 値 
7?0 DATA る の 値 , 編 の 値 
80 DATA 多 る の 値 。 の 値 
に に (以下 同様 ) 





表 の 引き 方 関数 タッ ニア) の 数 家 を トシ ー エ 
6 。 バッ " 
と 21 21 
えっ 2 2 
え ヵ ノブ 


0 イア ュ し 宮家 】 イア 』 ee イア ュ 


と する . 引数 (独立 変数 の 値 ) が 与え られ だ とき , ゎ ふ ミ ァ マ % ょ + ュ に な る よ 
うな / を き が す に は 次 の よう に すれ ば よい 、。 


分 点 *, が 等 間隔 の 場合 分 点 間 隔 を を と すれ ば (すなわち 
*: 三 テー ニュ 十 (2 三 1。、2。…。 ZZ) と すれ ば ),。 7 は 次 の よう に し て 求 
め ら れる 。 


7 = ニ 「 (メー る) / ヵ の 整数 部 分 」 
BASIC で 書け ば 次 の よう に な る . 
世 三 INT( ( 文 一 文 (O) ) ノ H 
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不 等 間 隔 の 場合 最も 簡単 な 方 法 は , ? = 0, 1。2。… の 順に 
そ 』 公 えて イ ュ ュ 
か 否 か を 調べ る (実際 に は 右 の 不等式 だ け を 調べ れ ば 十分 ) と いう 方 
法 で ある が , も っ と 能率 の よい 方 法 と し て , 2 分 法 と いう の が ある . 


これ は , まず 引数 を 表 の 中 央 の 値 (zzz また は ぇ arpz) と 比較 し て 「 表 
の 上 半分 に ある か 下 半 分 に ある か 」 を 判定 し , 次 に その 上 半分 また は 
下 半 分 を また 上 下 に 2 分 し て 。 その どちら に ある か を 調べ る ,。 … と い 
う 方法 で ある . 





[流れ 図 ] 
入口 






| ァ を 含む 部 分 ] 
の 下限 が / で , 
上 限 が ヶ , 中 央 
が で ある . 


[プロ グラ ム 例 ] (前 後 の 処 理 は 省略 ) 
200 REM _ NTBUNHOU 
る 10 エニ ュ 
る 20 R=RN 
る 30 M= テ INPT(( 世 士 RR ) ノ 2 ) 
240 1E 又 (M) < らら 呈 H 氏 N エーM BTLS 思 R=M 
250 TE Rー エ >1 呈 TEN 230 
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6.12 補 間 


線形 補間 2 点 る 。 る 」 に お ける 関数 値 久 。 騙 。」 を 1 次 式 で 補間 する 
の が 線形 補間 で ある 。 点々 に お ける 関数 値 タ は 
次 の よう に (近似 ) 計算 で きる . 


ッッ ター ロー ター メー) 


イェ ユエ ュー イズ アム + 1 
まだ 次 の よう に 表す こと も で きる . ア / 
ア , え イル + ュ 
りー ュー 入 の ー タ 40 
テア ュ ュ ーー を え ォ ュー イズ, 
Lagrange 補間 一 般 に , 2% 十 1 箇 の 点 %。 る 。…。 タ ん に お ける 関数 


値 %。 。 …。 が 与え られ た だ た とき, 
の (と ,) ニタ (7 三 0。 1。 …。 ) 
と な る よう な zz 次 多項式 を 作っ て 補間 を 行なう や り 方 を Lagrange 補 
間 と いう . この よう な 多項式 は , 次 の よう に し て 作る こと が で きる 、. 
アマ ) = A6 (て ) 十 上 Ai () 二 … 十 2V。 (て ) 
だ だ し 
Ai.(y) = II テー を 


=o (和え, 一 え ) 


この アマ ) を Lagrange 補間 多項式 と いう . 
( 例 ) 久 = ニ 2 の 場合 
_ (テー%) (テー) 
6 (e) ニ (る ーー%) (や ーー る る ) ア 2 


ー (ズー%) (テー 多 ) 
02 (るー 和 ) (ーー る や ) ツ 


ー (テー 包 ) (テー る ) 
Ye) ニ イ ンー) (ー ぁ ) 


ア ( ヶ ) =%A。( 々 ) 十 ア 7 ( 々 ) 十 玉 5 ( そ ) 0 。 2 
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As ( ヶ ) ご 
/M4 ( ヶ ) _。 ご ハハ 


we) の ヘー ンー へ) 


5 ( ヶ ) ニラ ーー ヘー ンプ 
so と や 、。 


Ae) - ニ ーーーーーーー ーー 


[解説 | ここ に 用 いた 関数 .( ヶ ) は 

分 点々 z: に お ける 値 は 1 /,(,) 三 1 

他 の 分 点々 に お ける 値 は 0 Ai(* う = 0 ⑦7 才 2) 
と いう 性 質 を 持つ . 実際 。 Ai(y) の 定義 式 に * = ニ ィ を 代入 すれ ば , すべ 
て の 因子 が 約 分 で き て AL(z) 三 1 に な り 。 ィ ティ ャ (7?2) を 代入 すれ ば 
分 子 に マー*%) と いう 因子 が ある か ら , Wi() ニ 0 と な る . この 性 質 を 利 
用 し て 「 点 *。 に お ける 関数 値 だ け を 合わ せる ( 他 の 分 点 に は 影響 を 与え 
ず に )」 と いう こと が で きる わけ で ある . 
[プロ グラ ム 例 ] (前 後 の 処理 は 省略 ) 


Wi(x) の グラ フ 
( 三 5 で 分 点 が 等 間隔 の 場合 ) 


100 P= テ O 
110 FEOR エ =O TO M 

120 N テ ュ 

130 FEOR J ゴ =O TO M 

140 志 エニ THEBN 160 

150 NN*※( 乙 一 文 ( 了 ) ) /( 文 ( エ T ) 一 文 ( 耳 ) ) 
160 NEX〒 了 

1 の 0 P ニ Y ( T ) *※N 士 選 


180 RN 選 文 呈 〒 1 
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6.13 数 値 積分 


定 積 分 S = / /(x) みみ の 値 を 近似 計算 する 方 法 に つい て 説明 する . 各 
種 の 公式 が ある が , 利用 者 の 立場 か ら は , 利用 条件 を 
了 () が 数 表 と し て 与え られ て いる 場合 
し し) が 大 (また は プロ グラ ム ) と し て 与え られ て いる 場合 
に 分 け て , それ ぞ れ に 適し た 公式 を 覚え て お く と よい と 思う . 
被 積分 関数 が 数 表 で 与え られ て いる 場合 、. の 
分 点 や 。 和 名 。 衝 。 に お ける 関数 値 
%。 双 。 の 。 が 与え られ て いる と す 
る . 分 点 や , を は 積分 の 下限 2。 上 限 め 2 に 
一 致し て いる と する 。 





台形 公式 積分 値 $ を 台形 の 面積 の 和 で 近似 する 公式 で ある . 一 
般 形 は 


三 を と ・(%: 一 名 - ュ ) 三 る 2 オタ) (ター デュ ) 
1 


特に 分 点 が 等 間隔 (z: = ィ L ュ 十 欠 2 1。 2 …。 2) な ら ば 


7 カ 
と や ダコ ュ 二 アカ ルー /25 」 や や 」 5 、。 
S 三 2 ウ ん 三 (テオ % 二 )・ ん 


4 三 1 





[ ブ プログ ラム 例 ] ア ( ヶ ) の 計算 が 3 箇所 で 必要 に な る の で , DBE 文 を 用 
ゅ いる と よい 。 以下 に 示す プロ グラ ム 例 は 。 了 ア (?) = 1/ (1 十 * う の 場合 で ある 
が 。 DEF 文 を と りか えれ ば 他 の 関数 の 計算 も で きる . 


10 RM た いけ いこ うし き 
20 DEE ENO(X ) ニュ ユノ ( ユ 十 文 * 区 ) 
30 TNPUT AB,RN 
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40 
50 
60 
7 0 
80 
90 
100 
1T10 
る 0 


是 三 ( BーA ) ノ /RN 
W テ O 
FOR エ = テ 1 TO KNー1 ユ 
メーA 十 [ 玉 H 
W=W 二 ENO(XX) 
NE 又 1 
WENO( A ) ノ 2 十 WTENO(B) ノン る 2 
8 テ W*H 
PRTNT "8=W":8 


Simpeson の 公式 寺 間 隔 の 3 点 和 を ちち rs に お ける 関数 値 久 ,。 
aj 少 a2 を も と に 。 被 積分 関数 を 2 次 式 で 近似 し て 積分 を 行なう ,。 この 
区 間 に お ける 積分 値 は 


712 『 十 4 め 』 ュ 十 2 め 5 
/ ヶ ) 改 ーー ea 二 の は (一 和 り 


これ を 7 テニ 0 か ら 7= ァ z/2 ま で 加え 合わ せれ ば ゞ の 近似 値 が 得 ら れ 
る (2 は 偶数 と する )。 


[プロ グラ ム 例 ] 
10 DEBE ENO( XX ) ニモ ユノ ( 1 ユ 十 駐 玉 叉 ) 
20 INPUT A,B,RN 
30 ーー( ーーA ) ノ (2 る ※*N ) 
40 81= テ O 
50 82=O 
60 エ テ 1 ュ 1 TO KNー1 
70 又 ーA 十 ( 2 ネネ エー1 ) ※*H 
80 81= テ 81 ENO(X ) 
90 メーA 十 2 る ※ エ HH 
100 S2ー ニ 82+ENO(XX ) 
110 REX 呈 T エ 
1 20 8S1 ニ = ニ 81+TENO( BB 一 H ) 
130 8= テ (ENO( A ) 十 人 44 ま 81 十 2 82 十 下 NO( B ) ) *※H ノ 3 
140 PRTNT 8 
150 END 
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Newton-Cotes の 公式 これ は Sumpson の 公式 を 一 般 化 し た も の 
で , 等 間隔 の % 十 1 点 に お ける 関数 値 プア a。 …。 za なぁ を も と に 。 
被 積分 関数 を z 次 式 で 近似 し て 積分 を 行なう この 区 間 に お ける 計算 
式 は 。 一 般 に 次 の 形 に 書け る . 
(GO み の 計 寺 g0ar キー 十 6ayacrg 


イ 7 


た だ し 。 =ー ルオ が ーー イ 7。 係数 は 次 の よう に な る 。. 


2 C Co 」 C2 2 C。 Cs Ce 

2 6 1 4 1 (Simpson の 公式 ) 
3 8 1 3 3 1 

4 90 7 32 12 32 7 

5 288 19 75 50 50 75 19 

6 840 41 216 27 272 27 216 41 


[6 点 公 式 の プロ グラ ム 例 ] 
10 DATA 5,840 
20 DATA 41。216 2 ウ 7 ウ 。27 ウ 2 。 27 。 2 る 216,41 ユ 
30 REBAD N,BUNBO 
40 DEBE ENE( 駐 ) ニ 1 ノン ( 1 ユ 十 文 * ) 
50 TINPUT A,B 
60 Hー( 一 A ) ノ RN 


70 ーーO 

80 FOR ユエ = テ 0O TO KR 
9 0 食 三 A 十 上 エ 玉 日 
100 Y テ ENE( 文 ) 
上 10 RKEAD C 

6) S 三 ネネ Y 十 8 


160 NB 区 T エ T 
140 ST※ ネ 8/BUNBO 
150 PRTINT "8=":8S 
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被 積分 関数 値 を プロ グラ ム で 計算 で きる 場合 この 場合 に は 分 点 位 
置 を 自由 に 選べ る の で 、 
積分 区 間 の 中 央 付近 は 粗く , 両端 で は 細か く と る 
粗い 分 割か ら 始め て 。 分 割 を だ ん だ ん 細か くし て ゆく 
被 積分 関数 の 性 質 を 調べ , 滑ら か な 部 分 で は 粗く , 変動 の 激しい 
部 分 は 細か くす る 
な ど に より 能率 の よい 計算 を 行なう こと が で きる . 


第 1 の 方 法 を 具体 化し た の が Gauss 型 の 積分 公式 で , Legendre- 


Gauss の 公式 は その 代表 的 な も の で ある . 

Legendre-Gauss の 公式 積分 区 間 の 上 の Legendre 多項式 の 零 点 
を 分 点 に と っ た 公式 で ある . この よう に する と 。, ヶ ? 箇 の 分 点 を 使用 する だ 
け で 2 一 1 次 まで の 多項式 の 厳密 (離散 化 誤差 0 ) な 積分 値 を 得る こと 
が で きる 。 この 公式 で 計算 する に は ,。 下記 の 表 か ら 分 点 位置 ね, 用 。 … 
*。 を 算定 し ,。 そこ に お ける 被 積分 関数 値 を 計算 し , 表 の 係数 を 掛け て 加 
え 合 わせ , 区 間 幅 を 掛け れ ば よい 、. 


7 みみ = (2ー の 名 Cr) た だ し , ネ = 2 1 2ー@ 。 

















2 
分 点 番 号 ? 無 次 元 化し た 分 点 位置 4 係数 C, 
2 点 公式 1 ー ア 1/3 1/2 
2 + ア 17/3 1/2 
3 点 公式 1 ー ソ 3/5 5/18 
2 0 8/18 
3 +3/5 5/18 
4 点 公式 1 ー0.8611363116 0.173927422 
2 ー0.3399810436 0.326072577 
3 上 0.3399810436 0.326072577 
4 +0.8611363116 0.173927422 


タ 
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6.14 行列 (マト リッ クス ) の 計算 


定義 行列 (マト リッ クス ) と は 数 を 四角 に 並べ た も の 


5 6 の 」」 の 2 … の 1 一 第 1 行 
8 1 5 2 9 の 2」 の … の ー 第 2 行 
( 例 ) | | 一 般 に 21 22 2 
2 9 3 6 7 
1 2 の 5 … の 本 第 行 








で 。 その 演算 は 次 の よう に 定義 きれ て いる 。 第 1 列 第 2 列 第 ヵ 列 
加減 算 。 成分 ご と に 加減 算 す る こと . 
5 2 3 3 1 5 5 十 3 2 士 1 3 二 5 8 3 8 
の | し 2 2 
4 0 7 7 2 9 4 十 7 0 十 2 7 士 9 11 2 16 
スカ ラー 倍 (定数 倍 ) すべ て の 成分 を 定数 倍 す る こと . 
1 10 8 2 メ 1 2X10 2X8 2 20 16 
6 5 ( 2X6 2X 5 2X0 間 10 
積 行列 4 の 第 ? 行 と 行列 の 第 7 列 の 積 和 が 積 4 の 第 行 第 7 列 成 
分 と な る . 








( 例 ) 2 | 


2X3 十 3X7 士 42 2X7 十 3X0 十 4X3 








7 5X3 十 6X7 十 7X2 5X7 十 6X0 十 7X3 
。 | 6 填 21 二 8 14 二 0+12 35 | 
15 十 42 十 14 35 十 0 十 21 71 56 











一 般 に 行列 第 1 列 … 第 7 列 … 第 ヵ 列 
の の う * の ー の 」。 
の ぅ i * の 昌 の ぅ 。 





行列 4 
の 』 … の 。/ の の 
第 1 行 Cm と iz 
…・ 積 和 … 行列 
第 7 列 と 計 C C ン =4 ア だ 
第 7 行 の の 2 … の CC 放 1 の CC 計 "の (2 


ー / 】 一 1 
計算 式 は , C』ー の の 」」 十 の 2 の 2 」 十 … 十 の ,, の ニ 2! の ,。 の ん 則 
々 = 1 7 三 1 …。 72 
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[行列 の 乗算 と 入出 力 の プロ グラ ム 例 ] 行列 4, 万 を 入力 し , その 積 
C テ ノ ・ ど ぢ を 計算 し て 出力 する プロ グラ ム の 例 を 示す 。 4 は 47 行 學 列 。 
ど は Z 行 ヵ 列 と する . (C は 当然 , / 行 2 列 と な る ). 

10 DIM A(8,.8),B(8.8) ,O(8,.8) 

20 INPUT TL,M,N 

30 FOR エ =1 TO エ 

40 FEOR J テ 1 ュ 1 TO M 

5 0 PR INT WA( リサ ・ エ エリ リン リー ゴリ ) = リ ・ 

60 TNPUT A( エ T, 耳 ) 4 

70 NEXm〒 了 

8O KNEXT 1 

90 FOR ユエ = テ 1 TO M 
100 TEOR J= ュ 1 TO KR 
1 1 0 PR TI NT リ 班 (リー エリ ルリ リー イリ) テリ 
120 TNPUT 巳 (IT, 了 ) 

130 REX 呈 T 了 

140 NEXT 1 

150 FOR ユエ = テ 1 TO エ 
160 FEOR J ゴ = テ ュ 1 TO KR 


ざ 
み 
呈 


ーー 


C 
ざ 
ーーー イ オー 
二 


170 8=O 

180 FOR K= ニ 1 TO M 上 
190 8 ニーA(T,K)*B(K, 了 ) 8 慎 の 計算 
200 NEXT 公 

210  O(T,~)=8 

220 REXT ~ 了 


くつ 0 NE 共 T 1 

240 FOR エ = テ 1 TO エ 
くら 50 FEOR J= テ 1 TO KR 
る 々 60O PRTNT "CO( リ Ei エ TEU 9: ゴリ )= リ EC( エ エナ) 
る 70 NET JJ 
く 80 NRN 選 欠 T 1 
く 90 END 


〇 
の 
ーー 
二 


ーー 
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6.15 連立 1 次 方 程 式 


Gauss の 消去 法 連立 1 次 方 程 式 の 計算 に は 普通 , Gauss の 消去 法 
が 用 いら れる 。 要領 は 筆算 と だ いた い 同 じ .。 それ を 表 の 形 で 規則 的 手順 
に より 計算 する . 


筆算 の や りか た 計算 機 に よる 処理 法 
( 例 ) [2* 十 4y 十 6z=6 表 に まとめ る | ② 4 6 | 6 
3 ァ 十 8y 十 7 < テ 15 3 8 7 15 
5 ィ ァ 二 7 ッ 十 21z 三 24 L 9 7 。 21 | 24 
第 式 を * に つい て 解く と 第 1 行 を 2 で 割り 、 3 倍 , 5 倍 し て 
第 2 行 。 第 3 行か ら 引 く 〈。 


ァ ー3 一 グッ ャ ー3 ぇ 
残り の 式 に 代入 し て 整理 する と 









1 2 3 
0 め ⑳ 一 2 


2 ャ ー2zー6 0 
ー3 ッ 十 6<=9 第 2 行 を 2 で 割り 一 3 倍 し て 第 3 
上 の 式 を ッ に つい て 解く と 行か ら 引 く . 
ッ デ 3 十 々 る 
これ を 下 の 式 に 代入 し 整理 する と 
3 ビー18 … る 々 ビー6 





順に 上 の 式 に 代入 し て ッ テ 9, x テ ー33 を 得る 
一 般 の 場合 係数 を 表 に まとめ る . ーー、、 


6 の 11 イ 」 十 の 22 十 … 十 の カー の の 」1 


21 十 222 2 十 … 十 22 ヵ ダー の > の 21 





の ヵ 1 え ュ 十 の 2 えッ 十 … 十 の ルーク の 。 
[計算 手順 ] を = テ 1, 2,…, 一 1 の 順に 
新 の 7 ーー の 7/ の ん 


新 の ょ 王 の 4/ 24 ヶ 








(7 を, を 十 1,…,z) 
7 三 を 十 1 か ら で も よい 。 





前 進 消去 
2 三 を ん 十 1,…, に つい て 
新 の ー の テー の 4 の ん (7 テール, ん 十 1 …, み ) 
新 の , 王 ム の, 一 gz4 の 4 
メー の 。/ の 
を = テ %z メ 一 1.Z2 一 2,…,。 1 の 順に 
後退 代入 カ 
ォ ぁ 王 の 一 2 の な えッ 
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10 
る 0 
ら O 
40 
50 
6 0 
7 0 
80 
90 
100 
+T 10 
+ る 0 
+ る 0 
140 
150 
160 
170 
180 


190 
る く O0 
る 10 
くる 0 
ぐう 0 
0 
る くら 0 
る く 60 
る く 70 
る 80 
る く 90 
S00 
S10 
ら る 0 
っ らら 0 
ら 40 
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TNPUT KR 
DIM A(N,RN), 文 (N) ,B(N) 
EOR エ テ = テ 1 TO KR 係数 と 定数 項 の 読み 込み 
EOR J ゴ = テ 1 TO KR 
PR TIN VA( リト エ ルリ リー ゴリ ) ーー リ ・ 
TNPUT A( エ T, 了 ) 
NEXT 了 
PRTN リ 王 (リュ エリ ) 三 り ・ 
TNPUT B(T1) 
NEXT 1 
FEOR 代 1 TO KNー ユ ここ か ら 前 進 消 去 
FOR J ゴ = テ 康二]1 TO KR 
A( 康 , ゴ )=A( 康 。 ゴ ) ノ A( 人 KK, 交 ) 
NE 呈 
B( 区 )= 己 ( 廊 ) ノ A(K, 交 ) 
FEOR エ =K 十 1] TO KN 
FOR J ゴ =K 二 1 TO RN 
A( エ 。 ゴ ) テ A( エ 。 ゴ ) 一 A(T エ 区)※A(K。 耳 ) 
NEBX 呈 
B( エ T )= モ B( エ ) 一 A( エ , 交 )* 選 ( 康 ) 
NB 文 F 1 
NEXT 康 
XX(N)=B(N) ノ A(RN,RN) 
FEOR = ニーNR 一 1] TO 1 8@ 呈 T 選 一 ユ ここ か ら 後 退 代入 
8 ニテ O 
FOR ゴー=K 十 1 TO KRN 
8 テー8 十 A(K, 了 )*※ 文 ( 耳 ) 
NEXT 了 
文 (区 ) = 己 ( 区 ) 一 8 
NEXT 低 
FOR 衣 = ニ 1 TO KR 
PRTINT " 六 ( り : 衣 りり ) 三 り : 文 (区 ) 
NEXXT 人 
BND 
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ピボット 選択 前 ペー ジ の プロ グラ ム に は , 一 つ 欠 点 が ある . それ 

は 。 文 130 お よび 文 150 に お いて 。 A( 丈 , 区 ) の 値 が O の と き 。 計算 が 不 
可能 に な る こと で ある . それ を 避け る た め に は , 文 110 と 文 120 の 間 で , 
次 の よう な 操作 を すれ ば よい . 

2xx の ruz "の xx の 内 で 絶対 値 最 大 の も の を さがす * 

それ が 第 7 行 (7 まる ) に あれ ば 第 7 行 と 第 を 行 を 恋 換 す る ** 
この よう な 操作 を ピボット 選択 と いう . ピボット (pivot) と は 。 消去 す 
る 変数 x。 の 係数 2zg。 の こと で ある 。 
[プロ グラ ム 例 ] 前 記 の プロ グラ ム の 文 110 の 後に 挿入 


上 上 ユ 凸 三 区 第 を 列 の 最大 値 を さがす 
上 ユ る FOR エニ = テ 六 士 1 TO KN 
ユ ユ る TF ABS(A(T, 交 ) )>ABS(A( 芽 , 多 ) ) 


(W 行 の 続き ) | 中 HEEN エニ ュ 
114 NEXm エ 


115 IF エ L=K GOTO 125 7/ ニ を な ら ば スキ ッ プ 
116 FOR J=K TO NN 
119 SWAP A(K,J 了 ) ,A( エ , 了 ) 
118 NEXT ~ 

行 と 第 
119 SWAP B(K) ,B( エ ) た 人 


上 る 0 FOR J ゴ = テ 十 1 TO KN 


※ ま 脱線 防止 だ け な ら ば 「0 で な いも の を さがす 」 だ け で よい が 。 絶対 値 最 
大 の も の を ピボット に 用 いる と 丸め 誤差 を 小さ くす る 効果 が ある . 

※※ | 行 の 変換 ] は 「 連 立方 程 式 の 式 の 順序 の 変換 ] に 相当 する . あと で その 
影響 を 補正 する 必要 は な い ( 列 の 交換 を し た 場合 は 補正 が 必要 ). 
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掃 出 法 (Gauss-Jordan 法 ) 係数 と 
定数 項 を 右 の よう に 表 の 形 に まとめ ,。 下 | 9 92 の gz| か 
記 の 手順 で 計算 する . 計算 量 は ガウス の | | 
消去 法 よ り 多 い が 計 算 手 順 が 簡単 な の で 1。 2 | に 
小型 計算 機 な ど で 用 いら れる . 
を = 1,2。…。z の 順に 
第 を 行 を gx。 で 割る . 
2 三 1.2。 …。2 に つい て (た だ し 2 ニ を ん を 除く ) 
第 を 行 の 2:。 倍 を 第 ? 行か ら 引く . 
計算 終了 時 の ム 。 の め ,。 …。 な の 解 が 名 。 る 。 …。 名 に な っ て いる . 
[プロ グラ ム 例 ] (入力 の 部 分 は 129 ペ ー ジ と 同じ な の で 省略 ) 
110 FOR 廊 = ニ 1 TO KR 
120 PP テ A(K.,KK) 
130 FOR J=K TO R 
140 A( 六 , 了 ) 三 A( 交 ,J ナ ) ノ ゼ 
150 NEXT 了 
160 BEB( 区 ) テ (区 ) ノ P 
170 BEOR エ =1 TO 








+80O TE エニ =K GOTO 240 

190 Q テ A(T, 素 ) 

る く O0 FEOR J= TO RNN 

く 10 A( エ 。 ゴ ) テ A( エ 。 ゴ 了 ) 一 QG*※A( 区 , 耳 ) 
ぐる 0 NB 失 T J ゴ 


230 B( 1 ) =B( T ) 一 Q* 己 ( 交 ) 

く 40 NE 区 T 1 

る 50 NE 双 T 区 

26O TEOR エ テ ュ TO KR 

る 7 の 0 PRTINT りり 文 (リー エリ ) 三 り : 王 (エエ ) 
る く 80 RE 又 T 1T 

る 90 REND 
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6.16 逆行 列 


定義 正方 行列 を 4, 単位 行列 を / と する と き , 4 ニア / に な る 行列 
ダ を 4 の 逆行 列 と いい 4 で 表す . 
計算 法 (原理 ) 逆行 列 を 求め る に は 要する に 


の Ii1)。 の 2 "7 の ュー イズ i12 7 え ュ ァ 1 0 … 0 
の 2」 の 22  ""* 72 ヵ イ 2」 イイ 22 2 0 1 … 0 
の |」 の zz2 の ん 1 2 "リー イカ 0 0 … 1 


に な る よう な %*:(2。7ー 1。2。…。 2) を 求め れ ば よく , それ に は 連立 1 次 方 
程 式 4 ャ = テ e, (は え その 第 7 列 。 er は 7 の 第 7 列 ) を 7 1.2。 
… っ 2 に つい て 解け ば よい 。 
計算 法 ( 実 際 ) 連立 1 次 方 程 式 の 解法 と し て は 掃 出 法 が 簡単 で よい 
(連立 方 程 式 を 。 1 題 解 くだ け な ら ば Gauss の 消去 法 の 方 が 速い が , 逆 
行列 の 計算 の 際 に は 掃 出 法 で も Gauss の 消去 法 で も 計算 時 間 は 同じ に 
な る )。 手順 は まず 
第 1 行 
第 2 行 





第 行 


と いう 表 を 作り 。 
ん = 1。 2,。 …。 み の 順に 


第 を 行 を 24。 で 割る 
2 三 1。2。…。 2 に 対し (た だ し 2? 三 を を 除く ) 


第 ? 行か ら 第 を 行 の 2,。 倍 を 引く . 
と いう 計算 を する 。 その 終了 時 点 に , 表 の 左 半 分 は / に な り 。 右 半分 は 
4 に な っ て いる 。 
記憶 場所 の 節約 上 記 の 計算 の 中 間 結 果 は , 第 を 段階 の 開始 時 点 に 
つい て 考え て みる と 。 配列 A の 第 を 列 よ り 左 側 は 単位 行列 と 同じ 形 に 
な っ て いて 。 実際 に は も は や 計算 の 必要 は な く , また 表 の 右 半分 の 第 を 
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列 よ り 右 側 は , 実質 的 な 計算 は まだ 行なわ れ て お ら ず , 単位 行列 の 形 が 
その まま 残っ て いる . そこ で 。 この よう に 内 容 が 自明 な 部 分 を 除き , 配 
列 A の 第 を 列 よ り 左 に は 4" を 入れ る よう に すれ ば 記憶 場所 が 節約 さき 
れ 。 計算 時 間 も 半 分 で 済む 次 の プロ グラ ム は 。 その よう な 方 式 を と っ 
て いる 。 

[プロ グラ ム 例 ] 

10 TNPUT KR 

20 DTM A(RN,RN) デー ター 入力 

30 POR エ = テ ュ 1 FTO KR 

40 FEOR J ゴ = テ ュ 1 TO KN 

5 0 PR TNT WA( リ ・ エ WW ょ ゴリ V0)U・ 

6 0 TNPUT A(TI, 耳 ) 

270 。 NEXX 中 

80 RBB エ 

90 FOR = ニ 1 TO KN ここ か ら 逆 行列 の 計算 
100 PP テ A( 人 , 低 ) 

110  A( 人 K, 康 ) テ ュ 

120 EEOR J ゴ = テ ュ TO KN 

1 30 A(K。 了 )ーA( 区 ,J 了 ) ノ ゼ 
140 REBX 叩 了 

150  EOR エ = テ 1 TO KR 

160 TE エ = テ KK GOTO 22O0 


170 Q テ A(T,K) 

180 A(T,K) = テ O 

190 FOR J ゴ = テ 1 TO KR 

200 A( エ T。 サ )A( エ , 了 ) 一 Q*A( 区 。 耳 ) 
210 NB 文 Tm J 


こる 0 NE 駐 〒 エ 
くう 30 NE 区 T 区 


240 FOR ユエ = テ ュ TO RNN 結果 の 出力 
る くら 50 FEOR JJ= テ ュ 1 TO KR 
る く 60 PRINT VA( リ EE エエ リリ リ と ゴリ ) テ = テリ 。A( エ ば) 


70 NEE 失 芽 二 
ぐ 80O NEB 双 呈 T 
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6. 1/ 固有 値 , 固有 ベク トル 


与え を られ た だ 正方 行列 4 に 対し 
ノイ ャ ー ス A テ だ だ し ァ ま 0 

を 満た す ベ クト ル ェ (固有 ベク トル と いう ) と スカ ラー4 (国有 値 と いう ) 
を 求め る 問題 を , 行列 の 固有 値 問題 と いう . この よう な 計算 は , 固有 振 
動 数 の 計算 や 主 成分 分 析 (統計 解析 の 一 手法 ) な どの 際 に 必要 に な る . 
4 が 実 対 称 行列 の 場合 と そう で な い 場 合 と で は , 問題 の 性 質 も 解法 も か 
な り 異 な る . 応用 で は 実 対称 の 場合 が 多く , 実 対称 な ら ば 計算 が 簡単 な 
の で 。 以下 で は 実 対称 行列 の 固有 値 問題 の 解法 に つい て 説明 する . 

Jacohbi 法 実 対称 行列 の 固有 値 問題 の 解法 は 数 多く ある が , 最も 簡 
単 で 。 その わり に 能率 が よく , 安全 確実 な の は Jacobi 法 で ある . 
[原理 ] 実 対称 行列 4 の 非 対 角 要 素 の 一 つ を 2。。 と し , 





20005 だ た だし, 
ーー 上 の の 
と > み 20 ー よ arctan ーー2@ 

ニー 2 の 一 の gg 

ーS C =ー 2 列 日 と 三 COS の 

立 | 

他 の 部 分 は 0 S 三 tan の 
人 パ 
ヵ 行 目 9 全 目 


と いう 行列 47 を 作っ て , 新 4 テ / ル 447" と いう 変換 を する と, 

新 の の 。 三 0 新 2 ぁ 0 に な る 

新 4 は や は り 実 対称 で 。 4 と 同じ 固有 値 を も つ 
と いう 性 質 が ある . この よう な 変換 を くり か え し て , 非 対 角 要素 を すべ 
て 0 (また は 非常 に 小さ な 値 ) に すれ ば , その と き 固 有 値 は 新 4 の 対 角 
上 に 並ぶ 、 ま た 固有 ベク トル は 。 変換 に 用 いた 77 の 積 

テイ ルル ルル ュー ルル 7 5 本 

の 各 列 と し て 得 ら れる . ヵ , 9 の 選び 方 は いろ いろ ある が , 右 の プロ グラ 
ム で は 「 そ の 段階 の 非 対 角 要素 の 中 で 絶対 値 最 大 の も の を の 。 と する 」 と 
いう 方 式 (古典 的 方 法 ) を 用 いて いる .。 この 方 法 は , 最大 値 を き が す の 
に 手間 が か か る が 。 必要 な 反復 回 数 は 最も 少な い . 


6.17 固有 値 , 固有 ペク トル 
[計算 手順 ] 
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ビニ ア (単位 行列 ) と し て 出発 し 。 すべ て の 非 対 角 要素 の 


絶対 値 が 十分 小さ く な る まで 。 下記 の 手続 を ぐ くりかえす. 


1) か ヵ , の を 決め る 

_ 1 29z 
2) の = 2 arctan Z。。ー g。。 
3) c 三 coS の s 三 tan の 
4) 


(だめ 


の pp 一 の gg る ) 
/4 と する 


ー ダ 


新 4 = 7447" の 乗算 を 行なう 。 実際 に は 第 ヵ 行 。 第 9 行 。 第 ヵ 


列 。 第 9 列 の 計算 だ け を すれ ば 十分 で ある ( 他 の 部 分 は 不要 ). 


5) 


新 = テリ 7* の 乗算 を 行なう 。 実際 に は 第 ヵ 列 と 第 2 列 の 計算 


だ け を すれ ば 十分 で ある ( 他 の 部 分 は 不要 ). 


[参考 用 ] プロ グラ ム ・ テ スト の た め の 行 列 
5 4 1 1 1111 一 1089 891 909 
4 5 1 1 1089 1111 一 909 891 
(i) (ii ) 
1 1 4 2 891 一 909 1111 一 1089 
1 1 2 4 909 891 一 1089 1111 
厳密 な 固有 値 , 固有 べ ベク トル は 次 の よう に な る 。. 
( ュ ) A」 = 10 A。 =5 A。 = 2 A。 三 1 
2 ー1 0 ー1 
2 ー1 0 1 
の 」 三 ] の 2 三 2 の 。 三 ー ュ の 。 三 ) 
1 2 1 0 
(ii ) 和 , 三 4 A。 = 40 A。 = 400 A。 三 4000 
/ 1 1 1 1 
1 1 ー1 ー- 1 
の 」 ニー 1 の 2 三 ー1 の 3 三 ー1 ど む 。 三 ] 
1 ー1 1 ー1 


[注意 ] 固有 べ ベク トル の 計算 結果 は , 
の 比 が 上 記 に 一 致す れ ば よい . 


普通 。 上記 と 同じ に は な ら な い が 。 成 分 
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プア) 
ア 7010) 
ア QOEO) 
アウ の さけ 
704Q 
プロ 5 
7060 
プア 
ア 0 ロ 0) 
アロ ワウ 0) 
ア 10O 
7110) 
アプ 1 で SO 
ア 1 53) 
ア 140 
71580) 
7160) 
プア 1 7 
ア 18O 
アプ 19O 
アダ 0 
アダ 10 
ブダ 
で さ () 
7S40 
プア で 9) 
プア で らい 
プ ゼ ブフ 0 
アロ 
アダ OO) 
プア 3 
プス 1 の 
アス で 0 
6) 
アミ 4 の 
アプ さ きら 
アプ さ きら 
ア さ ノロ 
80) 
ア さ ウロ 
プア 作り 
アオ 41 
74 で 0 
74 
7440O 


RE MK| 章 章 井 韻 井 韻 韻 提 韻 韻 拓 音 提 拓 井 韻 井 井 韻 井 提 提 
RE 提 ヤ コ ヒ " ほう に よる この うち けい さん 提 
REM 菩 _ 5eF1ial JaCoOhi ほう 提 
REM 井 あの きとう ミ は AS" ん で "けい さん 提 
REI 音韻 井 牛 井 井 井 韻 韻 井 韻 提 韻 持 井 井 井草 韻 井 韻 提 
REM し ゅ うん く は ん て いし よう する を せっ て で てい 
CMX=O 

FUR エエ =1 TH N 

FOUR J=I TO N 

IF BS(R(ET。J)) が CMAX_ GOTO 7 ア 71EO 
F' テ 1 s』 品 =J 

じ CMAX= 人 ES (人 ( エ 。 け ) ) 

NEXT J 

NEX 征 1 

EFG=CMAX*O。 OOO) 1 

EMMAX=100) 

REM この かう で ロト 中 の けい さん の し "ん ひび 
FURK i=1 TO N 

FOUR ゴロ =1 TU N 

V( エ 。J) = テロ 


NEXT J 

V(T。 1) =1 

NEXT 1 

RE に に aaa ap Le イ TOas 地 一 39] aa pan aa 
FR 1 TU EMRaX 

REM た い お ぶ に ち お いと こる お ら へ ん お ん を お こ な らち 


FDR し =1 TH N-1 
REM き * よう ん ご" うし * ゅ ん に キー 
FMAX=N- し 

FOR F=1 TO FMAX 

QFP+L 

REM に * ホ "ik F。 ロ 

IF ABS(A(F。D) )EF'G BUT ロ 7 フミ ロ 
FRINT EiFsi 

FRINT TAE(15) iCF。G) 』 

FRTINT TAEX( ミ 1) 』TTME* 
AFF'= 全 (F'。F') 

Bs (EQ) 

APD (F。 ロ ) 
ALFHR=(aFFー 人 CU) *O。 

BETA=SEIR (ALFHa*ALFHAa+AFEN 人 SFG) 
CmSQR( (1+ 人 BS (aLFHA) /BET) * の 。 全 ) 
= り 。 AFGB/ (BETR*C) 

IF aLFHAEO THEN 8=ー ロ 

CCeC*C : GSG=B*XG =: CB=C*G 
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7450 
7460 
ア 747Q 
7480) 
74 
アウ 0(.) 
プロ 10 
アロ ご 
ノ 530 
プ 5 人 4 
アロ 58Q 
7560 
757 
75B(O 
ノウ 
プ 600) 
7610 
ノ 6 で O 
プア 6 さ O 
プ 640 
ノム 6950) 
アム らら 6() 
ア ら 7 
76BO 
プア 690) 
アア 00 
アア 10 
アフ SO 
アア 3 
ノア 40 
アア 5 
アフ 6 の 
770 
77BO) 
アプ アウ 9) 
7BOO 


Z ヨ 10 
262o 
ア 783O 
7B40 
アロ ロロ 
7B60O 
ア 78B ア 0 


内 (F。F) = 人 FFP じじ ビ + オ ビ モ *RFQUKCG+ 人 0G*GG 
人 (DB DD) =AFF KGGー2*【 人 FDKCG+TAGG*CC 
和合 (F。G) = 

1F F ド =1 GOTO 7540 

FUR [=1 TO ドー1 

IF=R(T。F) : IO=(T。D) 

向 (T。F) = ニ ビ * 人 1 ドキ 6※% 全 TO 

合 ( エ 。D) = ニ ビ *※ 全 エロ ーS% 全 エ F 

NEXT 1 

IF =N GUTOU 76000 

FOR J= ロ +1 TO NHN 

人 ロ F ゴ = 人 (PF。J) 』 GU=A(B。J) 

和合 (F。 ゴ ) ニ ビ % 得 F ゴ オキ GOJ 
Q(O。J) ニ じ ネー5 人 FFJ 

NEXT J 

IF L=1 G ロ UTU 766 

FUR 1 エ =F+1 TO 口 -1 

人 QFP エミ (FT) 人 TO= 人 (エロ D) 

向 (F 。 エ ) = ニ ビ % 販 ビ エ オキ S※ 全 1 

QA(1。 0D) モビ * ネ 人 T ロ ーー6*※ 人 FT 

NEXT 1 

REM この つの" ロト の けい さん 

FUR エエ =1 TO N 

VITF=V( 1。F) 

V エ = ソ (T エ 66) 

V([。 PF) = じ ビ * ネ ソ エ ビ +G※ り エロ 

V(T。 ロ ) = じ *VT ロ ロー5*%VIF 

NEXT 1 

NEXT 

NEXT し 

REM し ゅ う で て は ん で い 

FUR 1T=1 TH N-1 

FUR J=+1 T 品 NN 

IF BB(A(T。J) ) PEFG GUHTOU 7BSEO 
NEXT J 

NEXT 1[ 

RETURN 』 REM ーーー mnmOFm は 1 握 ※1 七 一 一 一 
NEXT 

REM ドド ・ FETOe hm 9 ] と ーー【 ニ ニニ ま で 7 う ゃ ns 
FRTNT は ん ST て ニー うる あき 委 | 

BEEF  』 STGOF 

RETURN 

REM --ー emnd of JaCOUE1T ーーー 
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6.18 常 微分 方 程 式 


コン ピュ ー タ ー に よる 常 微分 方 程 式 の 計算 法 は , 単独 ( 非 連 立 )。 1 階 
の 常 微 分 方 程 式 の 初期 値 問題 の 解法 が 基本 的 で , それ を 応用 すれ ば , 連 
立 の 場合 や 高階 の 場合 の 計算 も 行なう こと が で きる 。. 

簡単 な 例題 は じ め に ,。 簡単 な 例題 に よっ て , 基本 的 な 考え 方 を 説 
明 し て お く こ と に する , 

コッ プ に 100*C の 湯 を 入れ , 室温 0?C の “" 


部 屋 に 置く . 湯 の 温度 を ッ "C。 時 刻 を * 

と する 。 湯 の 温度 の 変化 率 は (ご く 単 純 で 
化し て 考え れ ば ) 湯 の 温 度 と 室温 の 差 に 

比例 する で あろ う . その 比例 定数 は , コ 

ッ プ の 熱 伝導 率 , 表面 積 。 比熱 。 その 他  O +- 
いろ いろ な も の に 関係 する が ,。 ここ で は 話 を 簡単 に する た め , 比例 定数 
は 1 と し て 計算 する こと に する (一 般 の 場合 で も ,。 いわ め ゆる 無 次 元 化 と 
いう 処理 を すれ ば 同じ 形 に な る ). 以上 の 関係 を 式 で 書け ば 


微分 方 程 式 飼 - ニ ーッ 初期 条件 ッ (0)=100 


と な る 。 こ の よう な 関係 を 満た す 関 数 y(z) を 求め る 問題 が , 常 微分 方 程 
式 の 初期 値 問題 (の 簡単 な 一 例 ) で ある 。. 
簡単 な 解法 上 記 の 式 の の / 必 を 間隔 ヵ ん の 差分 商 で 代用 すれ ば 


移 項 すれ ば 

了 ( 十 ん ) ニッ (*) 一 作 ア ( テ ) 
と な る . これ を 「 現 在 時 刻 * に お ける 温度 が 既知 の と き , その ん 時間 後 
の 温度 ャ ッ (* 十 ヵ ) を 近似 計算 する 式 」 と し て 用 いれ ば , 初期 値 ッ (0) か ら 出 
発し て 。 ッ ( ズ 十 24) (2 三 1。 2。 3。 …) を 求め る こと が で きる 。. 
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[プロ グラ ム 例 ] 時 刻 z 三 1 まで の 計算 を 行なう こと に する 。 
10 INPUT H 


2O TN ニ ュ ノ HH 総 ス テッ プ 数 を 計算 
30 X0=O 

| 初期 値 の 設定 
人 4O Y 三 100 
50 REOR エ テ O TO RN 
60 メー 率 0 十 エ * 昌 現時 刻 と 現時 点 に お 
り 0 PRTNT X,Y ける 温度 を 出力 
80 マニ マーH* マ 次 の 時 点 の 温度 を 計算 


90 REXT エ 
[注意 ] 上 記 の プロ グラ ム で 実習 する 際 に は , ひと まず ん = 0.1 で 計算 
し て プロ グラ ム が 正常 に 動く こと を 確認 し , 次 に ヵ =0.01 の 場合 を 計算 
し て 。 前 の 計算 結果 と 比較 する と よい . ヵ ん を も っ と 小さ くす る 場合 に は , 
上 記 の プロ グラ ム だ と 出力 が 多く な りす ぎる の で 。 次 の よう に し て 出力 
を 間 引 く 必要 が ある . 

45 M= テ INT(O.1 ユ /H 十 0.5) 


50 EOR エ ユエ = テ O TO 10 

60 文 三 区 りり 十 エエ ※O . ユ | 0.1 間 隔 で 出力 
7 O PRTINT 区 YY 

7 5 EOR J= テ 1 TO M 

80 YYー 是 ※ ま Y 出力 せ ず に 進め る 
85 NE 区 T ゴ 


90 REXT エ 
な お ,。 ん は 0.1 の 整数 分 の 1 に と る も の と する 。 


[補足 ] 左記 の 計算 式 は , ッ (z 十 ヵ ) ニモ ( 一 がめ) ヶ (*) と 書く こと も で きる . 
これ より , 

ィ (1) ニッ (* 十 z) (1 一 め (0) = 100(1 一 1/ み ) " 
これ の ヶ っ oo の 極限 値 は 。 100e-* と な り ,。 厳密 解 の 値 に 一 致す る . 
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6.19 Euler 法 


単独 。 1 階 の 常 微分 方 程 式 は , 一 般 に 

"ニア (そえ 。 了 ) 1) 
と 書け る . た だ し , * は 独立 変数 ,。 ッ (*) は 未知 関数 。 ッ は の / み の 意 
味 , プ (z。y) は 「* と ッ の 値 が 与え られ た だ た とき に ツア の 値 を 求め る た め の 計 
算式 (必ず し も ゃ も 一 つの 式 で 表せ な く て も よく 。 要する に ァ と と ヶ か ら 〆 パ の 
値 が 一 意 的 に 計算 で きれ ば よい ) 」 で ある . コン ピュ ー タ ー で ぐ で 数値 的 に 計 
算 で きる の は , 一 つの (与え られ た ) 初期 条件 

ァ ー% の と き 。 ッ テカ 
か ら 出 発し て , 

っ 生 時 を 
(た だ し , ニテ ュ 十 が 。 ん は 分 点 問 隔 ) に お ける 解 y の 近似 値 

0。 多 。 2。 の うー 
を 求め る こと で ある . こ の よう な 計算 を する に は , 基 本 的 に は ,「 1 ステ ッ 
プ 進 め る た め の 技 術 」 すなわち 「*> ニャ の と き に ッ ニ テッ で ある 。 と いう 
こと が わか っ た と き に ,。 ヶ ティ jn に お ける ヶ の 値 」 を 計算 する 方 法 」 
を 確立 すれ ば よい . 
[計算 の 方 法 」 前 節 と 同様 に , 微分 方 程 式 1) の 微分 商 を 差分 商 に 置き 換 
えれ ば 


了 ( マ 十 ) 一 ( ズ ) ー ア ( ァ 。?) 


これ より 

ッ ( ヶ 十 ) ニッ ( ヶ ) 十 ん ア (。 ツ ) (2) 
すなわち 。 

ュー 十 が プ (。。 ア ) 
と いう 計算 法 が 導 か れる . これ を Euler 法 と いう . 
( 例 ) 微分 方 程 式 ダ キッ テ @e の の 場合 。 ア ( ズ 。 ッ ) = の デ ーッ で ある か ら 。 計算 
式 は 。 三方 士 ん (@ テ ーッ ) と な る . 
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[解説 ] 「 微 分 を 差分 で 代用 する 」 と いう と 乱暴 な よう で ある が 。 関数 y 
を 点々 の まわ り の Taylor 展開 


ーー の ん < Z/ 7 (の 


の 2 次 以上 の 項 を 無視 すれ ば 式 (2 ) が 得 ら れる し , 式 (1) を * か ら ヶ 十 
まで 積分 し て 得 ら れる 関係 式 


イエ + ムカ 
タ (* 十 め = ッ ⑦+ ナ (*。 ツ ) 区 


の 被 積分 関数 げ を , 定数 ( 々 に お ける 値 ) で 近似 し て も 式 (2 ) が 得 ら れる 
わけ で 。 さら に [分 割 を 限り な く < 細か くす る と き 。PEuler 法 の 結果 は 厳密 
解 に 収束 する ] と いう こと も 証明 さ きれ て いる . 
[プロ グラ ム 例 ] 

10 TINPUT 抽 O。Y, HH,RN 

20 FOR ユエ テ O TO KR 

っ O 三文 0 十 工 素 紳 

440 PRINT 失 Y 

o 0 GOSUB 100 

60 YーY 十 耳 玉 E 

7Z0 NE 双 T エ 

80 STOP 

100 RM * ネ ネネ EE( 文 。Y) NO 人 思 TSAN ネネ ※ ネ 

110 せ ー 文 ※Y ア (*。 了 ) の 計算 式 の 一 例 
+ る 0 RTURRN 


中 
ー ト 
舞 
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6.20 ERunge-Kutta 法 


Euler 法 は 簡単 で 便利 で ある が , 精度 は あま り よ く な い . そこ で ,。 精度 
を 改良 し た 解法 が 数 多く 開発 され た . その 中 で , 比較 的 簡単 で あり な が 
ら 精度 が よく 安全 確実 な 公式 と し て 最も よく 使わ れ て いる の が ,。 以下 で 
説明 する Runge-Kutta 法 で ある . 

[計算 の 手順 | 微分 方 程 式 は アテニア (*。y ッ ) とし, その ヶ ニ * に お ける 
ッ の 値 妨 まで は 計算 済み と する . 次 の 値 (*:』」 ニ *: 十 ん に お ける y ッ の 値 
am) は 。 下記 の よう に し て 計算 する . 

1) と と その 中 点 中 三 ィ : 十 /2 

に お ける y ッ の 値 ym を Euler 法 に より 計算 する . 
中 三 引 十 (4/2) ア " 

2) それ を も と に ,。 中 点 に お ける 
勾配 了 呈 を 計算 する . 

中 ニア ( ズ 中 。 中 ) 

3) 上 記 の y 生 を 用 いて , 中 点 の 
値 を 再 計算 する . タ を: ィ ゃ イコ 

了 再 三 攻 十 (/2) y 中 

4) それ を も と に , 中 点 に お ける 勾配 を 再 計算 する . 
再三 ア (中 。 再 ) 

5) それ を 用 いて 。 ぇ ヶ ii に お ける y ヶ の 値 の 概算 値 .+」 を 作る . 





アダ : 





アー 光二 め 委 
6) それ を も と に 。 ッ ュ ュ の 概算 値 』」 を 求め る . 
ダー アナ ( テ aa ダ ュ ) 
7) 以上 , 4 回 計算 きれ た 勾配 タタ 中 。 アタ 守 。 ダ ュ ュ を 。 1:212:1 
の 重み で 平均 し て 用 いて 最終 的 な み 』」 の 値 を 計算 する . 


ュー ニタ ォ ンタ キ エ タ 再 士 ザ a ュ ァ 


こう し て 計算 きれ る み .」 と 真 の y(j。,) の 差 は が の オー ダー で ある ( 要 
する に 非常 に 小さ きい ) こと が 証明 きれ て いる 。 
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[数 値 例 」 


6.18 節 と 同じ 問題 
ニー y(0) = 100 


を Runge-Kutta 法 で ん ニー 1 と し て 計算 し て みる . 


その 値 は , 


に 等 し い . 


* 中 三 0.5 。y 中 三 100 十 (一 100)/2 = ニ 50 。y 中 = ニー50 
再三 100 十 ( 一 50) /2 = 75 ッ 呈 ニー 2 の 5 
ュー100 一 75 ニ 25 ュー ニー 25 


100 十 ーー ペー や ター 人 の 1 二 37.5 


100e-* の Taylor 展開 式 の 第 5 項 ま で の 和 の ァ テ 1 の 値 


1 1 1 1 
100 | ュー 本 キ 打 ーー 宇 す れ ー 37.5 


[プロ グラ ム 例 ] 

10 DEF FNO( マ ) モ ーー ーー これ は 利用 者 が 定義 
20 1INPUT 気 0。Y。H,N 

3 る 0 FEOR エ テ O TO KR 


40 PRTNT XXO 十 T*H,Y 

5 0 F13FENOC(X,Y) 了 , 
60 双 ー 文 十 ノ る 

70 FE2=ーFNO( 又 。Y 十 革 *※ 下 ユノ る ) ア 中 
80 3 る =FNO( 又 ,Y 十 H※ 世 る ノ る ) ダ 再 
90 文 三 又 十 ノ る 

100 BE4 テ NO( 文 。Y 十 芋 *※E る ) が 
220 モー( 選 1 十 2 玉 FE 十 2 記 3 十 4 ) ノ 6 

1 20 マニ YE* 古 アコ 


130 NEB 失 T エエ 


/ 
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6.21 高階 お よび 連立 微分 方 程 式 の 解法 


Z 階 微分 方 程 式 の 場合 。 2 障 か ら z 一 1 障 ま で の 導 関 数 を それ ぞ れ 別 
個 の 関数 と し て 扱え ば , 連立 1 階 の 微分 方 程 式 に な る . 
( 例 1) アオ 2 タダ 十 3y ー cosS ヶ の 場合 . ッ を < と 置け ば 


アア" 三 る 
? ーッ 三 cos*ー2z 一 3 ヶ 
( 例 2) タツ オタ ケミ 0 の 場合 , カニ タッ 。 ニタ ダ 。 ニダ" 
と 置 け ば 
ター 
> ー 
アー ーー 狼 多 
この よう に 連立 1 階 の 形 に し て か ら , 次 に 述べ る 方 法 を 適用 する . 
連立 1 階 微分 方 程 式 の 解法 連立 1 階 の 常 微分 方 程 式 は 。 一 般 に 次 
の 形 に 書け る . 
タダ ュ 三方 ( テ 。 必 入ら) ダ ) 
アッ 5 三 方 ( え 。 必 。 5) で っ) 
タッ ー な ん (。 。 っ 
た だ し 。 今回 の 添字 は 「 変 数 の 番号 」 を 表し て いる 。. 
連立 の 場合 の 計算 法 は , 本 質 的 に は 単独 の 場合 の 計算 法 と 同じ で 。 た 
だ それ を zz 人 箇 の 変数 に つい て 同時 に 計算 すれ ば よい 
Euler 法 を 適用 する 場合 の 計算 式 は 次 の よう に な る . 
久 ( ズ 十 め ) 三 双 (*) 十 が 」(。( そ )。…。) (て ) ) 


( ィ 十 ん ) ニー ( テ ) 十 婦 』(。 ( そ )。 …。 才 ( そ ) ) 
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( 例 ) 左記 の 例 1 の 場合 な ら , 次 の よう に 計算 すれ ば よい . 


恒 昌 ーッ (>) 十 / 


る ( ヶ 十 ん ) 三 <( ヶ ) 十 ん (cos ャ ー2z 一 3? ヶ ) 


初期 条件 を ッ (0) = 0。z(0) =0 と し 。 進み 幅 を ヵ ん =0.1 と すれ ば 


0 


(0.1) = 0 十 0.1xX(1 一 2x0 一 3X0) = 0.1 
(0.2) = 0 十 0.1x0.1 = 0.01 
og 計 0.1 十 0.1x(0.995-2x0.1 一 3x0) 王 0.1795 
以下 同様 . コン ピュ ー タ ー で 計算 する の で あれ ば , 次 の よう に する . 
10 TLTNPUT XXO,。Y マ 名 区 ,H 


20 BEOR エニ O TO 抵 


[| と だ し は 終了 すま 
で の ステ ッ プ 数 


っ SO 人 スロ 0 十 廿 氷 日 

0 PRTNT 区 マレ 名 

ら SO YO ニテ Y 十 H※ 乙 

60 クー 選 十 ※ ネ (OO8S( 又 ) 一 2 ネー る *Y ) 
7 0 Y テ YO 


80 NE 欠 T 工 


KRunge-Kutta 法 を 適用 する 場合 の 計算 式 は 次 の よう に な る . 


タ : 左 三方 ( ズ 左 。 劉 左 。 少 左 。 ぴっ 必 諾 ) (7 三 1.2。…。 ) 
騙 中 三 左 十 (2/2) ダ 庄 ( / ) 
ダ 中 三方 (中 。 必中 。 坊 中 。 …。 和久 中 ) ( / ) 
騙 再 三 左 十 (/2) ダ " ( / ) 
ア 吾 三方 (中 。 改 再 。 少 再 。 …*。 負 再 ) ( / ) 
右 三友 十 の 清 ( / ) 
ア 右 三方 ( え 右 。 必 右 。 光 右 。 “ ぅ 右 ) ( / ) 
王寺 イ 座 十 人 中信 縛 二 ダ 容 み ( カ ) 


だ た だ し 。* キ ニャ ィ 左 十 ん /2。* 右 三 * 左 十 。 まだ ヶ 右 と y ヶ 次 が 次 の ステ ッ 


プ の * 左 と みみ 左 に な る . 
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[プロ グラ ム 例 ] 
10 DIM Y(5) ,YO(5),.EF(5) 
20 DIM FE1(5) ,E2(5),F3(5) 
30 RB 包 AD XO,N,H, 人 KK 
40 FEOR エ = テ 1 TO 
5 O RBAD YO( エ ) 
6 0 Y( エ ) = ニ YO(1 エ 1) 
70 NEX 呈 1 
80 FOR エー テニ O TO 
90 文 三 双 0 十 芽 ※ 本 
100 GOSUB 500 
110 EOR エ = テ 1 TO KR 
1 20 FE1( エ )=E(T) 
130 Y( T ) = ニ YO( エ ) + エ ( T ) * ノ る 
140 NE 1 
150 文 三 駐 十 ノ る 2 
160 GOSUB 500 
170 EEOR エ = テ 1 TO KR 
180 FE る ( エ )=EF( エ ) 
190 Y( T ) ニ YO(T ) 二 下 ( 和 T ) *※ ノ る 
200 NE 又 T 1 
210 GOSUB 500 
220 FOR エ = テ 1 TO KR 
230 FE る (T )= テ FE( エ ) 
240 Y( T ) = ニ YO( T ) + エ ( エ T ) *H 
250 NEXT エ 
260 文 三 駐 十 ノ る 2 
2 の 0 GOSUB 500 
280 FOR エ テ = テ 1 "TO KR 
290 Y( エ )= テ YO(T エ ) 十 (EE1(T) 十 
(続き ) | 2 下る ( 1 ) 十 2*FS( T ) 十 下 (1 ) ) *H ノ 6 
300 YO( エ )= ニ Y( エ ) 
310 PRTNT Y(T) , 
3 る 0 REXT エ 
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330 PRTINT 文 * の 値 は 一 番 右 の 列 に 印刷 され る 
340 RBXT 

350 EEND 

500 REM の 計算 の プロ グラ ム を 利用 者 が 書く 
510 EE(1)=Y( る 2) (これ は 例 1 の 計算 の 場合 ) 


520 EE(2 る 2) テニ OO8( 又 ) 一 2 る YY( る 2 る ) 一 5※Y(1] ) 
53O REBTmURRN 

540 DATA O,2。0.1,100 
550 DATA O 

560 DATA O 

570 END 


初期 条件 170) 0 


常 微分 方 程 式 の 数 値 計算 の 注意 Runge-Kutta 法 は 。 1 ステップ 進 
むせ 間 (から ィ 十 まで の 間 ) 各 未 知 関数 の 4 階 ま で の 導 関 数 が 連続 で あぁ 
る こと を 仮定 し て いる . し た が っ て , その 間 に ア チ の 計算 の 不 連続 点 を 作 
ら な いよ う (た と えば , 自動 制御 系 の シュ ミレ ーション の 場合 , ス イッ 
チ の ON,。 OFEEF を し な いよ うに ) 注意 する 必要 が ある . 

進み 幅 々 は 小さ すぎ て も 大 きす ぎ て も いけ な い . 小さ すぎ る と 

ッ ( ズ 十 ) ニッ (*) 十 ( 増 分 ) X . ※ メ メメ y( ヶ ) 
の 計算 の と き ,。 右 図 の よう に な っ て ,。 + サ 0.000000XX 増分 
増分 が 無視 され て し まう . 一 方 。 進み 
幅 が 大 きす ぎる と 精度 が 悪く な り ,。 さ 
ら に 過大 に すれ ば 発散 する こと が ある 。. 





X . メメ メメ ※ y( ヶ 十 ん ) 
k- 1 ワー ド -』 


1 
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6.22 拓 似 乱数 に よる 数 値 実験 


関数 RND 統計 的 現象 の 「 実 験 ] を コン ピュ ー タ ー で 行う こと が で 
きる . その た め の 道 具 と し て RND と いう 関数 が 用 意 き され て いる 。. 

書き 方 は 機種 に よっ て 多少 異な り , 単に RND と 書け ば よい 機種 と , R 
ND( 1 ) の よう に 形式 的 な 引数 を 付け る 機種 と が ある . 以下 の プロ グラ 
ム 例 は 前 者 の 方 式 で 書い て ある 。. 

関数 RND は ,0 ミ ん く 1 の 和 囲 の 一 様 乱数 を 作り 出す .。 すなわち , 関 
数 RNND を 呼ぶ た びに , 上 記 の 範囲 の 値 ん が ラン ダム (random,。 無 作 
為 , 不 規則 で た ら め ) に 出 て 来る (一 様 分 布 に 従っ て ). 

実際 に どん な 数 が 出 て 来る の か , 次 の り の よう な プロ グラ ム を 作っ て , 実 
行き せ て みよ う . 

[乱数 列 を 出力 する プロ グラ ム ] 

10 BEOR エ = テ ュ TO 2 る O 

る 20 U=RND 

30 PERTNT U 

40 REXXT エ 

50 ERND 

乱数 発生 の し くみ 乱数 を 作る に は , サイ コロ を 振る よう に ,。 物理 
現象 を 用 いる の が 理想 的 で ある が 。 コン ピュ ー タ ー の 中 で そう 簡単 に 良 
質 の 物理 乱数 を 作る こと は で き な い の で , 普通 は , た と えば 

WW。」ー (AM. を 友人 倍 し て 77 で 割っ た 余り ) 
2+ ュ ーー.」/ 4 

(た だ し , パパ, 47, は いずれ も 正 の 整数 ) と いう よう な 方 法 に より ,。 「 乱 
数 に 似 た 性 質 を も つ 数 列 」 を 作り 出し て 使用 する . これ を 擬似 乱数 と い 
う . これ は 規則 的 に 作り 出す の で ある か ら , 完全 に ラン ダム と は いえ な 
い が 。 う まく 作れ ば (た と えば 上 記 の 方 法 の 場合 , 定数 が 、47 と 初期 値 
A。 を 適切 に 選べ ば ) 初等 的 数 値 実 験 の 目的 に は 十分 使え を る 。 と いう こと 
が 知ら れ て いる 。. 
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RANDOMIZE 文 擬似 乱数 は , 数 列 と し て は 乱数 に 近い 性 質 を も 
つが 。, 同じ 初期 値 A。 を 使え ば 同じ 数 列 が 出 て し まう . それ を 選 け る に は 
プロ グラ ム の 最初 に RANDOM エ T 選 と 書け ば よい . 
サイ コロ に 変換 関数 RND で 得 ら れる の は 0 ミ z ぐ 1 の 範囲 の 一 
様 乱数 だ け で ある が , これ を 適当 に 変換 する こと に より ,。 上 記 以 外 の 分 
布 に 従う 乱数 を 作る こと が で きる . 
た と えば , これ を 「1 か ら 6 の 目 が 等 確率 で 出る サイ コロ | の 目 の 実 
数 値 に 換算 する に は , 
0sz<1/6 な ら ば [el 
1/6 sz<2/6 な ら ば [| 


5/6 ミ gz<1 な ら ば 
と すれ ば よい で あろ う . BASIC で この よう な 変換 を 行なう に は 。 次 の よ 
うに 書く と 簡単 で よい . 

SINT( 6*U ) 十 ユ 
乱数 の 発生 と 変換 を 兼ね て 次 の よう に 書く こと が で きる . 

8 テーINT( 6*RND ) 十 ユ 1 
[使用 例 ] サイ コロ を 2 回 ずつ 100 組 ( 計 200 回 ) 振っ て , 2 回 の 目 数 の 
和 が ちょ うど 7 に な る 組 数 を 数 えて みる 。 


10 RN=O カウ ンタ ー の リセ ッ ト 
20 FOR 衣 = テ 1 TO 100 

30 81 テ INT( 6*RND ) 十 ユ 1 | サイ コロ を 

40 82 三 INT(6*RND) 十 ] / 2 回 振る 

50 TE 81 十 82 く >7 GOTO 80 和 7? 
60 N テ N 十 1 カウ ント ・ ア ッ プ 


70 NEB 共 T 区 
80 PRTINT KN: 
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関数 KND の 応用 一 一 - (算数 練習 機 ) 0 か ら 9 ま で の 乱数 を 二 つ 
作り ( エ , と する ) , 


T の 値 プラ ス 印 ゴ の 値 イコ ー ル 印 


を 表示 し , 生徒 に 答 を 入力 きせ (それ を と する ), 


エ 十 ゴー な ら ば O 印 
エ 二 ゴチ 区 な ら ば 文 印 


を 出力 する プロ グラ ム を 作っ て みよ う 。 0 か ら 9 ま で の 乱数 を 作る に は 


TNT(10*RND ) 


と すれ ば よい . 
[プロ グラ ム 例 ] 
10 エーTIRNT(10*RND ) 
20 ゴー テーTIRNT(10*RND ) 
30 PRTNT T り 二 すす: 本 リー リー 
40 TNPUT 人 K 
50 TE エ 二 ゴー 人 K THEN PRTNTVO" LSE 
60 PRTRN (前 行 の 続き ) | PRrNT"x" 
ウゥ 0 GOTO 10 ー 
[出力 例 ] ロキ 2 = ブフ 
0 
ロ + ム = 11 
0 
1 + = 7 
y 
O+ 9 = 9 
Q 
さ + BB 
0 
4+ 〇 = 4 
D 
 + 呈 = 11 
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6.23 正 規 乱 数 


平均 値 0, 分 散 1 の 正規 分 布 パ (0,1) に 従う 乱数 を 作る に は , 「0 s 

gz ぐ 1 の 一 様 乱 数 z を 12 箇 加え て 6 を 引く 」 と いう 方 式 
三 婦 十 @ 十 … 十 2n2 一 6 

が 最も 簡単 で ある . ッ が (近似 的 に ) (0,1) に 従う こと は , 中 心 極限 定 
理 に よる . 
[ ブ プログ ラム 例 ] 上 記 の 方 法 で 正規 乱数 を 100 個 作り , そ の ヒス ト グ ラ ム 
を 描く プロ グラ ム を 作っ て みよ う . ヒス ト グ ラ ム の 範囲 と 間隔 は , 一 3 = 
y マ 十 3 コッテ 0.5 と する .。 

10 DIM HH(12) 

20 OR エ テ ュ 1 TO 1 る 2 る 、 


40 廿 (T ) テ 0 カウ ンタ ー を クリ ア 

50O RE 呈 エ 

60 FOR =1 TO 100 100 回 反復 
70 マニ テー6 

80 TEOR J ゴ = テ 1 TO 12 

90 Y マ ニテ Y 十 RTND | mes 

90 REBF 了 


100 エーTNTT( る * ネ Y 十 6 ) 

110 TE エマ <1 GOTO 150 
120 TE エ >12 GOTO 150 
130 陸 (Tr)=H(T ) 十 ユ 

140 REXT 区 


150 FOR T エ =1 TO 12 4 村 料 
4 桂 人 

160 TE H(T) 三 O GOTO 2 る 210 4 
ー * 儲 柱 欄 

1 の 0 FEOR エニ T エ TO H(Tr) HHR は HI 

180 PRTNT りり k り : 

190 NEXT L は 守 

200 PRTRNT 了 
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6.24 指数 乱数 


確率 密度 関数 4~^* の 指数 分 布 (その 平均 値 は 4", 分散 は 4 ご で あ 
る ) に 従う 乱数 を 作る に は , 区 間 [0,1] 上 の 一 様 乱数 z を 
ァ ーーAー~ リ log。z 
で 変換 すれ ば よい . BASIC で は , これ を 利用 者 定義 関数 の 形 
DEE EN ニーM*TLOG( RND ) 
に し て 用 いる と 便利 で ある (た だ し , 44 ニス 4~! ニー (平均 値 )). 
[用 途 ] 単位 時 間 内 に 平均 えれ 人 が ラン ダム に 窓口 に 到着 する と き , その 
到着 間隔 (1 人 が 来 て か ら 次 の 人 が 来る まで の 時 間 ) は 上 記 の 分 布 に 従 
う . その た だ ため 。 これ は 待ち 行列 の シミ ュ レ ーション に よく 用 いら れる 。. 
Poisson 乱数 単位 時 間 内 に 平均 4 人 が ラン ダム に 窓口 に 到着 す 
る とき,。 単位 時 間 内 に 実際 に 到着 する 人 数 z の 分 布 は , 平均 値 4 の 
Poisson 分 布 
と 


の (2 み ) ピー の ーー 


に 従う この よう な 乱数 z を 作る に は , 普通 。 次 の よう に する 。. 

区 間 [0,1] 上 の 一 様 乱数 a, %, 2 … を 作る . 

それ を 順に 掛け て ゆく 。 4, 26) 7626。 

積 が 6“ より 小さ きさく な っ た ら 止 め る . 

その 直前 まで の 箇 数 を zz と する . すなわち 

24.7 ら 2 の 。 e-^ > 2 7 ら …・26 の 4 ュ 

[解説 | これ は , 指数 乱数 (いい か えれ ば 「 到 着 間隔 」) る を, … を 発生 
させ て ,。 その 和 が 1 (すなわち 単位 時 間 ) に な る まで の 人 数 z を 数 える 
の と 本 質 的 に 同じ こと で 。 その 「log の 和 」 を と る か わり に 「 積 の log」 
を 用 いる こと に 相当 する . 





6.25 待ち 行列 の シミ ュ レ ーション 153 
6.25 待ち 行列 の シミ ュ レ ーション 


サー ビス 窓口 が 一 つ あ っ て , 
客 の 到着 する 時 間 間 隔 は 指数 分 布 ( 母 数 え ) に 従う 
サー ビス の 所 要 時 間 は 正規 分 布 パ (w,g? に 従う 
と いう 場合 の 数 値 実験 を 行なっ て , 待ち 行列 の 状態 を 調べ て みよ う . 
[プロ グラ ム の 設計 ] 各種 の 方 式 が ある が , ここ で は 初心 者 の た め に , 
記憶 場所 を 十分 に 使っ て , な る べく 明快 に 書く こと に する . 主 な 変数 は 


4, z 番目 の 客 の 到着 時 刻 ダ 到着 間隔 
7, 7 番目 の 客 の 終了 時 刻 ぐ サー ビス 所 用 時 間 
〇 び サー ビス 開始 時 刻 @ 行列 の 長き 


2 「 次 に 到着 する 客 ] の 番号 7 「 処 理 中 の 客 」 の 番号 
準備 前 ペー ジ の 方 法 に より 指数 乱数 々 を 順に 作っ て , 到着 時 刻 を 
4」 ニ 0 4. テニ 4, オデ (7 三 1。2。…。 一 1) 
に より 計算 し て 配列 A に 入れ , 「 最 初 の 客 が 到着 し た 状態 」 
7 王 1 7/=0 の 〇 =0 
を 初期 値 に し て 「 到 着 」 に 進む . 
到 落 時 の 処理 新 ? 三 2 士 1 とし, 
の 〇 = テニ 0 な ら ば , 〇 = テ 1, の = 4.」 に し て 「 サ ービス 開始 」 に 進む . 
し OS1 な らら ば 新 の 9+1 に し て 「 時 詩 | に 進 む 
サー ビス 開始 時 の 処理 新 7= ニ 7 十 1 と し ,。 正規 乱数 ぐ を 作り , 
アー の O+TS 
に より , サー ビス 終了 時 点 を 算定 し て 「 時 計 」 に 進む . 
サー ビス 終了 時 の 処理 今 の 客 の 待ち 時 間 フー4,, 現時 点 に お ける 
待ち 行列 の 長き @ な ど を 出力 し , @ か ら 1 を 引き 。 
の =ー0 な ら ば 「 到 着 」 に 進む . 
LO = 1 を なら る は の 一 の と し て 「 サ ービス 開始 】 に 進 
時 計 
4, ミ なら ば 「 到 着 ] に 進む . 
し 4 > なら ば 「 サ ービス 終了 」 に 進む 
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[ 融 
= 由 
畠 


[プロ グラ ム 例 ] 


1 0 

く O 

っ 0 

0 

SO 

60 

7 O 

80 

9 0 
100 
1L10 
[る 0O 
1 30 
上 [0 
150 
160 
170 
190 
190 
OO0 
る 10 
くる 0 
る っ 0 
40 
る 々 50 
く 60 
70 
る く 80 
る く 90 
っ S00 
ら 10 
ら る 0 


DIM A(100 ) ,T(100) 
N=100 
PRTNT "TAMBDA ,MU ,STGMA= リ ": 
TNPUT ,C1 ,C2 
A( 1 ) =O 
EOR エ テ ュ TO N 一 1 
メ = テ ーLOG で ( RTND ) ノエ 
A( エ 二 ] )ーA( エ ) 十 文 
NEX 呈 エ T 
ェ エー テ ュ 
ゴ テ 0O 
Q テ 0 
REIM  ※※ 氷 TOUTYAKU ※ ネ ネネ 
ェ エー テ エ 十 1 
TE エ >N GOTO 420 
TE Q<=O GOTO 190 
Q テ Q 十 1 
GOTO 260 
Q テ ュ 
O テ A( エー1 ) 
REIM ネネ ネネ SERVTOB KATST ※ 玉 * 
ーー ゴ 十 1 
GOSUB 340 正規 乱数 を 作る 
T( J ) =O+8 
RBM ※ 氷 来 TO 人 KBT ネネ ネ 
TE A( エ ) く =〒(J) GOTO 140 到着 へ 
REM ネネ ネネ SERVTOCB SYURYOU 米 ※* ネ 
PRTINT A( ゴ 了 ) 。T( ゴ 了 ) ,T(J) 一 A( 了 ナ ) ,Q 
@⑯ テ Q 一 ユ 
TE Q< ベ = テ O GOTO 140 到着 へ 
O=T( 耳 ) 
GOTO 2 る 0 サー ビス 開始 へ 
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らら 0 
っ ら 40 
S ら 50 
S60 
っ 70 
ら 80 
S90 
4400 
邊 る 0 
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REM ※ ネ ※ 氷 BTKT RANSUU 米 玉 玉 
マテ ー6 
FOR = ニ 1 TO 1 
Y テ Y 十 KRND 
NEXT 人 K 
SC ユ 十 CO る * ネ Y 
TFP 8>= テ O GOTO 410 
RRTURRN 
BND 


着 
77 士 ] ウ テ の 1 






MI 


3 


4 で 9 


J 


ー-3 CCem__Wl 


『 | 門 ア 


『… 
L 星 


上 mmm 一 - 
CT 


Cm WW ma ョ ーー 


JIL9KCICSIALILT99WeILBe.gm 一 - 


as 過 。 一 -- コ 3 テーー ーー 


arrET CE T こ て 革 


6Wei_eea_se- ま Wee-aHeaLsJeTs 


Cu まっ ーー- コ ーー - ま en 


[ 
1 
1 


Ne- 
ー--] 


BMM,318 央 


LT 


ーー WT 一 - コ "JaP ューー- LIL てこ CAT6 6 で ーー 
> に Ca 一 - 有 Lamniae_ WE- に > ョ ーー ーー--』 "に 6 


ge aa し 6 


C_WHeCaeaWne-WH 一 -- 二 = 


eeeeeWHNEe ーー ニョ ーー “PeGCTeeLa Hi 


Lane WM aeCs8e-ILm 一 -- コ ーー 


ーー mLeameeLeaepet Wa 一 W。CieCIHPT"。_s 


asa_『H 


ーー Wee CHIACeKCaTeeaLm ニ ーーKLaBG_e8 ニ 一 


Ce で ご た 『"。 ems 


ー- ゴ に WT ュ 一 -- ゴ に 。 9 WT WHW< 


5『B9 一 に - 6 『WEL PHe_WHe こ に 6 


LLCeToH0WoeroeWoeFーー ニ ーーGLaL8Ia_LWWILe_e 


Cme mW ニー 一 - コ Tn ュー 
HG WE IT っ = 


Pte CT ュー Ce ロー 


ー- に Wnn WeWa に 。 に" ューー ーー 
We ー に =。 
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6.26 演 習 


6.1 > の 値 を 読み 込み , 
三 3%? 十 7 ヶ * 十 5* 十 6 
の 値 を 計算 し 印 剤 する プロ グラ ム を 作れ . 


6.2 項 数 z と 実数 々 の 値 を 読み 


アマ "イリ し 還 ー1 aー イター1 


(tan~'* の 展開 式 の 第 z 項 ま で の 和 ) を 計算 する プロ グラ ム を 作れ . 





イ 一 一 


6.3 > お よび z の 値 を 読み 込み 。 次 の 級数 の 和 を 計算 し 印刷 する プロ グラ 
ム を 作れ . 


S1n 2 


+… キ (1 と 


Sin S1T 72 そ 
22 


6.4 (7(*) ニ 0 と 根 ) 次 の 方 程 式 を 解け . 

(i) 2x-tan ヶ 0 

(ji) 2 ァ 一 coshx=0 

(ii) “一 sin ヶ 0 

[ヒン ト ] この よう な 問題 の 場合 
まず , グラ フ を 描い て 。 根 の 箇 数 や 
概略 の 値 を 調べ て お く と よい . た と 
えば (1i) の 場合 . グ ラフ は 右 の 図 の デー2 ェ ーtanx の グラ フ 

よう に な る か ら , 根 は 3 笠 あ り , その 一 つ は ャ ニテ 0 で , 他 の 二 つ は 原点 に 関し 
対称 で ある か ら 一 方 (た と えば 正 根 ) だ け を 求め れん ば よく , その 出発 値 と し て 
は ァ テ 2 (ある い は 2、1,。 2.2 な ど ) を 用 いれ ば よい , と いう こと が わか る . 

(ii) の cosh ァ は 。 周知 の と お り , 双曲線 余弦 (hyperbolic cosine) で 。 定義 
は coshr 三 (e* 十 e@- う /2。 導 関 数 は (cosh*)"= sinh* ニ (geーe- の /2 で 
ある . 
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6.5 (③ 次 方 程 式 , 4 次 方 程 式 , 5 次 方 程 式 ) 次 の 方 程 式 を 解け . 

(ij) *“ー6>* 土 11x ヶ ー6 = テ U0 

(ji) * 々 パー パー ター ター2 =0 


(iii) *5 二 パー2 ァ 3 一 2 圭二 1ー0 


6.6 (Kepler の 方 程 式 ) 
ァ ーesin ァ ーー / ル 7 
を ニュ ー ト ン 法 で 解く プロ グラ ム を 作れ . た だ し 離心 率 @ お よび 平均 近 点 離 角 
47 は デー ター と し て 与え られ る も の と する . 


6.7 (三角 関数 表 を 作る ) よく 知ら れ て いる 値 
0′ 30 45" 60′ 90 
Sin 0 1/2 ソ 2/2 3/2 1 
を 補間 し て , 三角 関数 の 数 表 (0" か ら 90' ま で ぢ 間隔) を 作り , 上 厳密 な 値 と 比 
較 せ よ . 


6.8 数 値 積 分 に より , 次 の 値 を 求め よ . 


(1) / ァ み (ii) / の 婦 (ii) ツ 


o 上! 十 テ < 


6.9 (対数 表 を 作る ) 周知 の と お り , 1/* の 不定 積分 は log x で , log1=0 
で ある か ら ,。 1 か ら ァ まで 1/* を 数 値 積 分 する こと に よっ て log ァ (の 近似 値 ) 
を 求め る こと が で きる は ず で ある . この 方 法 に より ,* ニ 1 か ら ァ ニー ニク 2 まで , 
イィ 0.1 間隔 の 対数 表 を 作成 する プロ グラ ム を 作れ . 

[ヒン ト ] 最初 , ッ 1) =0 から 出発 し て , 


y.1) ニッ ①⑪+/ エ の 


1 .2 
y12) = ッ yd1)+/ を を 


を 計算 し て 出力 すれ ば よい . 積分 公式 は , まず 台形 公式 か Simpson の 公式 の よ 
うな 簡単 な も の で 試み て , 精度 が あま り 悪 いよ うな ら ば 高 次 の 公式 に 切り 換え 
る . な お 。 上 記 の よう に し て 得 ら れる の は 自然 対数 で ある . 常用 対数 素 を 作る 
に は , 上 で 得 ら れ た 値 を ogz10 で 割れ ば よい . 


158 6 数 値 計 算 


6.10 (無限 区 間 の 積分 ) 数 値 積分 に より / の "のみ の 値 を 計算 せよ . 

[ヒン ト ] 無限 区 間 の 積分 の た め に は 。 専用 の 公式 (た と えば Laguerre 
-Gauss の 公式 な ど ) も ある が ,。 そ うい う 特 別 な 公式 を 使わ な く て も 。,。 被 積分 関 
数 の 値 が 十分 に 小さ く な る まで と っ た 有限 区 間 の 積分 で 近似 し て も , か な り 良 
い 精 度 が 得 ら れる こと が 多い 。 い ま の 問題 で は , 0 か ら 5 ま で を 10 等 分 し て 台 
形 公式 で 積分 する ,。 と いう 程度 で 十分 の 精度 が 得 ら れる . 


6.11 (座標 変換 ) 右 の 図 の アメ - ヤ 
座標 系 で ( そ ,) と 表 さ れる 点 の *- ッ ア 
座標 (x。y) は 次 の 式 で 求め られ る . 
| [和え 
タ | 
の お よび ズ ざ 。T ダ を 入力 し て *。y ヶ の 値 を 
計算 し て 出力 する プロ グラ ム を 作れ . 


テ | cos の sin の 














ー | -sin 9 COS の 





6.12 ( 連 乗 ) 行列 4. と ベク トル ェ ( 行 列 は z 行 z 列 。 ベ クト ル は ヶ z 次 
元 ) を 入力 し , 積 
リー ジェ 
を 計算 し て 出力 する プロ グラ ム を 作れ . 
[ヒン ト ] 先 に 積 4 ぢ を 計算 し , それ を に 掛け る , と いう 手順 で 計算 す 
る と 計算 量 が 多く な っ て 損 で ある .。 それ より も , 先 に 太 x を 計算 し , それ に 4 
を 掛け る 方 が よい . 


6.13 (Eibonacci の 数 列 ) 2 テニ 0 る 4 =1, 
の ,+」 三 の 十 の ,- ュ (? 三 1。2。…) 
で 定義 きれ る 数 列 (Fiboacci の 数 列 と いう ) を @。 まで 計算 し て 出力 する プロ 
グラ ム を 作れ . 
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6.14 (2 項 係数 表 ) 2 項 係数 ((Z 十 2) の 展開 式 の 係数 . そ の 値 は 。z 箇 の 
も の か ら ヶ 箇 を と る 組合 せ の 数 に 等 し い ) , じ は 。 よく 知ら れ て いる 公式 


で 計算 する こと も で きる が 。 階 乗 の 計算 は 桁 あ ふれ を 起こ す 危 険 が ある か ら , 
滞 化 式 





し ァ 一 1 レー ュ 二 ビィ (だ ただ し し o 一 し 。 ーー 1 ) 
で 計算 する 方 が よい . この 池 化 式 に よっ て 2 項 係数 表 (z ニ 10 まで ) を 計算 し 
て 出力 する プロ グラ ム を 作れ . 


6.15 (連立 1 次 方 程 式 ) 次 の 連立 1 次 方 程 式 を 解け . 
| 130+243 ー 3 人 ー5 
(1) 226 12 ー 4 (ii ) 18x 十 14y 十 11z = 21 
24x 十 26y 十 21z = 4 24 ヶ 十 20y 十 16z = 30 


6.16 (逆行 列 ) 次 の 行列 の 逆行 列 を 求め よ 。 
68 一 41 一 17 10 





2 4 6 
( ュ ) 8 7 | タグ ーー 
則 -17 。 10 5 一 3 
10 一 6 一 3 2 
1 1 1 1 1 
1 2 2 2 2 
( 操 ) 1 2 3 3 3 
1 2 3 4 4 1 
] 2 3 4 3 


6.17 (行列 式 ) z 行 z 列 の 行列 式 の 値 を 計算 する プロ グラ ム を 作れ 
[ヒン ト ] Gauss の 消去 法 の 計算 を し て , その ピボット を 全部 掛け 合わ せれ 
ば よい (だ た だ し 。 行 の 交換 を し た 場合 は , 交換 の た びに 符号 を 逆 に する )。 
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6.18 次 の 微分 方 程 式 の 数 値 解 を Euler 法 で 計算 せよ 、。 

(i) タ y 十 久 ニ 0 (0) = 1 

(ini) ニャ 2 (0) = 1 

(ii) オー Sin テ y(0) = 1/2 


6.19 (C- 及 フィ ルター) 

右 の 図 は , 電源 回 路 な ど に 用 
いら れる C-Z 回路 の 一 例 で 
ある . 左 の 端子 に 整流 器 か ら 出 
て きた 脈 流 を 入れ る . その 電圧 
を 





ムー リザ | sm og 
と する . 端子 電圧 ム , , が の 関 
係 は 。 Ohm の 法則 に より 
7」 ニ ムー の 
2 ーー の 
a 欠 。 三 ムー0 
と な る .。 また コン デン サー の 人 性質 か ら 
の 2。 。 カーム の 2。 _ 一 8 





の 届 の / (@ 
以上 を まとめ る と , 次 の よう な 微分 方 程 式 が 得 ら れる . 


の 2 1 ーーー 作 | 


の み の 選 ( 天 の 
の /。 _ 1 | 生 - | 
の と > 5 ) 





た だ ただし, ム = テリ ツリ sin og』 
回 路 定 数 名 。 負荷 抵抗 。 電源 電圧 "お よび 角速度 ゅ , 進み 幅 
2/。 計算 打ち 切り 時 刻 ! 終 を 読み 込ん で 。 上 の 微分 方 程 式 の 数 値 解 を 計算 する 
プロ グラ ム を 作れ . 初期 条件 は 

7 テニ 0 に お いて みみ ニム = テ 0 
と する . 
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6.20 (大 振幅 の 振子 ) 右 図 の よう な 振 
子 が ある . お も り に か か る 重力 は 79 (た だ 
し の は 重力 加速 度 で 約 980 cm/s う ,。 その 接 
線 方 向 成分 げ は , アテ 249SIn の し た が っ 
て , ト ルク は ゲニ 229sin の , 一 方 , 質量 慣 
性 モー メン ト は 2z727 で ある か ら 。 運動 方 程 式 
は 


2 
7 ーー 2Z222gSin の 





た だし, s は 接線 に そっ て 計っ た 変位 で あ 
り , の と 5s の 関係 は (角度 の の 単位 を ラジ ア 
ン と すれ ば )s = テ / の で ある . この 関係 を 入れ 
る と 結局 


2 
の ー ー テ sin の 


これ が 。 大 振幅 の 振子 の 微分 方 程 式 で , 初等 関数 の 範囲 で は 解け な い . / = 30 
cm, 初期 条件 % ニ ァ /6 ラジ アン , 初速 0 と し て ,7= 0 か ら 10 秒 間 の 解 を 求め 
よ (Euler 法 な ら ば 7 を 小さ く と る 必要 が ある . Runge-Kutta 法 な ら ば 7 は 
0.1 秒 ぐら いで よい ).。 これ が うま く 解 けた ら , さら に 大 き な % に つい て 計算 し 
て みる と よい (た と えば 。 % = (5/6)z ラジ アン 。 右 下 の 図 参 照 ) 

[注意 ] % を 大 きく する と 周期 が 長く な る 
か ら ,。 解 を 求め る 範囲 (終端 時 刻 ) を それ に 合 
わせ て 拡大 する (遅らせ る ) 必要 が ある . 一 
方 , 進み 幅 は 小さ くす る わけ に いか な い (支点 
の 直下 を 通過 する 時 の 速度 が 大 きい か ら ). そ 
の た だ ため,。% を 大 きく する と 計算 所 要 時 間 が 急増 
する . 
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/.1] デー ター の 型 


BASIC で 扱う こと の で きる デー ター の 種類 に は , 大 別して 


] 便 チー ター 
し 文字 デー ター 
が ある . この 内 ,。 数 値 デ ー タ ー の 扱い 方 に 関し て は 
, 整数 型 (演算 が 速く , 記憶 場所 が 少な く て 済む ) 
| we (普通 の 扱い 方 ) 


倍 精度 実数 型 ( 高 精度 の 計算 が で きる ) 
の 区 別 が ある . た だ し , 機種 に よっ て は , 実数 型 だ けし か 使用 で き な い 
も の や , 整数 型 だ けし か 使用 で き な い も の も ある . 
一 方 。 文字 デー ター に 関し て は , 

文字 列 型 ( 英 数 字 の 文字 列 を 可変 長 の 形 で 扱う ) 

aa (漢字 / ) 
が ある . 正確 に は , それ ぞ れ 「 英 数 字 文 字 列 型 」 「 漠 字 文字 列 型 」 と 呼ぶ 
べき で あろ う が 。 現在 の と ころ ,。 後者 を 使用 で きる 機種 が 少な い の で , 
単に 文字 列 型 と いえ ば 前 者 を 意味 し 。 それ に 対し 後者 は 漢字 型 と 呼ば れ 
て いる 。. 
複素 数 型 。 多 倍 長 整数 型 , 多 倍 長 実数 型 な ど は 普通 の BASIC で は 使用 
で き な い 、。 論理 型 は 正式 の 型 と し て は 扱わ れ て いな い が 。 実質 的 に は そ 
の 処理 機能 を 持っ て いる . 大 型 コ ンピュータ ー の BASIC に は MA 串 文 が 
あり , いわ ば 「 ベ クト ル 型 」 | マト リッ クス 型 ] 的 な 処理 が 可能 で ある 
が 。 パパ ソコ ン の BASIC で は 使用 で き な い . 
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/.2 デー ター の 内 部 表現 


パソ コン で 内 部 の デー ター を 扱う 際 の 最小 単位 は 8 ビッ ト (2 進 法 の 
8 杵 ) で これ を 1 バイ ト (byte) と いう . 基本 的 な 演算 , 記憶 装置 の 出し 
入れ , 周辺 装置 と の 間 の デー ター の や り と り , な ど は すべ て (基本 的 に 
は ) 1 バイ ト 単 位 で 行なわ れる *. 


整数 型 の デー ター は 2 バイト (16 ビッ ト ) で 表現 さき れる. 16 ビット の 
内 の 1 ビッ ト は 符号 を 表す の に 用 いら れる . また 負数 は 補 数 ** の 形 で 表 
現さ きれ る. その た め , 整数 型 で 扱う こと の で きる 値 の 範囲 は 

ー32768 一 填 32767 
と な る . (5 万 円 と いう よう な 大 金 は 整数 型 で は 扱え な い の で 注意 !). 


ー 2 バイ ト 
数 
実数 型 の デー ター は , 指数 部 ( 位 ど り を 仮数 部 メ 2( 指 数 の 形 で 表す ) 1 


バイ ト と 仮数 部 (有効 数 字 を | 土 | 0 .******* の 形 で 表す ) 3 バイ ト 
の 合計 4 バイ ト で 表現 され, 処理 きれ る . 


Ki エー エー 4 
仮数 部 指数 部 


表現 で きる 数 値 の 範囲 (絶対 値 ) は (1/2) x 2 ~-*9 計 10-9 か ら 。 (1 一 
2 の づ ) x 2 の 司 10" ま で 。 お よび 0 で 。 有効 数 字 は 2 進 法 23 桁 で ある か ら 
10 進 法 換算 約 7 桁 で ある . 


ま 。 16 ビッ ト ・ パ ソコ ン の 場合 に は ,。 16 ビ ッ ト (2 バイト) 単位 の 扱い が 多 
く な る が ,。 それ で も や は り 1 バイ ト 単 位 で 扱う 処理 が か な りあ る . 

ネネ いわ ば 「 ゲ タ を は か せ て 正 数 に な お し た 形 ]」 の こと .。 パソ コン の 
BASIC の 整数 型 の 場合 , 負数 に は 2 "=65536 を 加え て 表し て いる . こ うす る と 
演算 処理 が 簡単 に な る の で ある 。 
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倍 精度 実数 型 の デー ター は 。 指数 部 1 バイ ト 。 仮数 部 7 バイ ト 。 合計 
8 バイ ト で 扱わ れれ る . 


倍 精 度 実数 弄 指数 部 こし 
- 仮数 部 
表現 で きる 数 値 の 範囲 (絶対 値 ) は 約 10 や から 約 10% ま で , 有効 数 字 ( 仮 
数 部 の 長き ) は 2 進 法 55 桁 で ある か ら 10 進 法 換算 約 16 桁 で ある . 
字 列 型 の デー ター は 。 1 文字 を 1 バイ ト で 表し 。, そ れ に 文字 列 の 長き 
す 1 バイ ト を 付加 し て 。 可変 長 (文字 列 の 長き さ に 合わ せ て 処理 する 


方 戒 ) の 形 で 扱う . 取扱 える 文字 列 の 長き は 最大 255 字 で ある . 


sa [し] に 上 上 上]… に ココ 


ム 
長 さ 文字 列 (1 字 が 1 バイ ト ) 


漢字 は 種類 が 多い の で , 1 文字 を 表す の に 2 バイ ト 必 要 で ある . 


漢字 型 を 使用 で き な い 機種 ご は , これ を 普通 , 整数 型 デ ー タ ー と し て 披 
う の で ある が , 漢字 型 を 使用 で きる な ら ば , こ れ を さら に 可変 長 デ ー タ ー 
と し て 扱う こと が で きる 。. 


| 2 yk 
! 
ぅ 2o00< 仔 し 
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/.3 属性 文字 と 型 宣言 


変数 の 型 の 種別 を 指定 する 方 法 は 

属性 文字 を 付け る 

型 定 言 に よる 
の 二 通 りあ る .。 前 者 の 場合 は , 普通 の 変数 名 の 後に 次 の よう な 属性 文 
字 ( 型 の 種類 を 表す 文字 ) を 付け る . 


整数 型 は % ( 例 ) A% 
実数 型 は | ( 例 ) Al! 
倍 精度 実数 型 は # ( 例 ) A# 
文字 列 型 は $ ( 例 ) A$ 
漢字 型 は @& ( 例 ) A& 


後者 の 場合 は 次 の よう な 型 宣言 文 に より , 変数 名 の 先頭 の 文字 ( 頭 
文字 ) と 型 の 対応 関係 を 指定 す る . 


整数 型 は DEETNT 先頭 の 文字 
実数 型 は DEBFESNG / 
倍 精度 実数 型 は DPFDBL. カ 
文字 列 型 は DEESTR / 
漢字 型 は (現在 まだ 使用 で き な い ) 


( 例 ) 「 エ で 始ま る 変数 名 は すべ て 整数 型 ] と いう こと を 宣言 する に は 
DEETNT 1 
と 書け ば よい 。 な お 。 次 の よう な 書き 方 も で きる . た と えば 
DEFDBL D,.S,W 
これ は 「D ま た は 8 まだ た は W で 始ま る 変数 名 は すべ て 倍 精 度 実数 型 ] と いう こ 
と を 意味 する . また 
DEESTR 一 選 
と いう よう な 書き 方 も で きる . これ は 「 ア ルフ ァ ベ ッ ト の 表 か ら R ま で の 文字 
で 始ま る 変数 は すべ て 文字 列 型 ] と いう こと を 意味 する . 
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特に 型 の 指定 が な けれ ば 変数 は すべ て 実数 型 と し て 扱わ れる . 型 宣 


言 と 属性 文字 に よる 指定 が 一 致し な い 場 合 は 属性 文字 が 優先 され る . 





数 字 定 数 の 型 を 指定 する に は , 数 値 の 後に 左記 と 同じ 属性 文字 を 付け 
る の が 最も 確実 で ある . 


( 例 ) 5% 整数 型 の 5 
5! 実数 型 の 5 
5 # 倍 精度 実数 型 の 5 


数 値 定数 は 指数 部 を 付け た 形 で 書く こと が で きる . 書き 方 は 
符号 数 字 の 列 , 数 字 の 列 芯 符号 数 字 の 列 
また だ は 
符号 数 字 の 列 , 数 字 の 列 D 符号 数 字 の 列 
で それ ら の 
世 ま だ は D よ り 左 が 仮数 部 (いわ ば 有効 数 字 ) 
世 ま た は D よ り 右 が 指数 部 
で 。 値 
(仮数 ) X 10 (指数 ) 
を 表す 。 この よう な 形 で 書か れ た 定数 の 型 は 次 の ひよ うに な る 。. 
世 を 付け れ ば 実数 型 
D を 付け れ ば 倍 精度 実数 型 
属性 文字 も 指数 部 も 付い て いな い 場 合 の 扱い は , 
小数 点 無し で 一 32768 以 上 32767 以 下 な ら ば 整数 型 
小数 点 付 き で 7 桁 以 下 な ら ば 実数 型 
小数 点 付 き で 8 桁 以 上 な ら ば 倍 精度 実数 型 
と し て いる 機種 が 多い よう で ある 。. 
文字 列 型 の 定数 は , 文字 列 を 2 重 引用 符 で 囲ん で 表す . 
( 例 ) "Oh,wonderful!lV' 
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/.4 代入 , 配列 。 入 出力 


どの 型 に つい て も 。 これ まで に 説明 し た の と 同じ 形 で 。 代入 を し た り , 
配列 を 用 いた り , 入出 力 を 行なっ た りす る こと が で きる . 
代 入 正式 の 書き 方 は 
LEF 代入 先 の 変数 名 = 式 
で ある が LE を 省略 し て 
代入 先 の 変数 名 = 式 
と 書い て も よい 。 代入 先 の 変数 名 の 型 と 式 の 型 が 一 致し て いれ ば 全く 問 
題 な い が , 一 致し て いな く て も , 
整数 型 実数 型 、 倍 精度 実数 型 
の 間 で は 自動 的 に 変換 が 行なわ れる (まず , 式 の 値 を 計算 し , 代入 先 の 
変数 名 の 型 に 合わ せ て 変換 し 。 その 上 で 代入 を 行なう )。 整数 型 に 変換 す 
る 際 , 小数 部 は 四捨五入 きれ る の が 普通 で ある . 


文字 列 変数 の 代入 の 場合 。 代入 先 の 変数 の 交 字 烈 長き は 。- 式 の 方 で 定 
て 説 定 (必要 な ら ば 変 


( 例 ) A$ の 内 容 が ABC の と き 。, 代入 文 
A$= "PQRST 
を 実行 する と , 以前 の 内 容 ABO は 消さ れ , か わり に PQRST が 入る 。. 文字 数 
は 3 字 か ら 5 字 に な る が , この よう な 代入 も 可能 で ある 。. 
配 列 どの 型 に つい て も 。 配列 を 用 いる こと が で きる . 宣言 は 
DTM 配列 名 (寸法 ) 
に より 行なう . 
( 例 ) DTM A%(100) ,CO#(30) ,M$(55) 
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入出 力 倍 精度 実数 型 の 出力 は 演算 桁 散 に 見 合う 十分 な 長き に な る 。. 
( 例 ) プロ グラ ム 


10 仙 寺 =1000000O0OOQ000000OO () 


2 昌樹 = 
ふ C) じ 井 三 馬 韻 / 日 井 
40 FRINT じ 提 
50 END 


の 実行 結果 は 次 の よう に な る . 


・ - エ ー ャ ー ーー ュー - 
ィ ー マユ コマ ユマ コマ ユマ そ さ さそ スマ そ ス D キ 1 ア 
レー 1 し 


人 


文字 列 型 デー ター の 入力 の 場合 、 プ ログ ラム で 字数 を 指定 する 必要 は 
な い 。 また 。 普通 は , 入力 文字 列 を ! 印 で 囲む 必要 も な い . その 場合 , 
入力 要求 (? 印 ) が 出 て か ら , 入力 デー ター の 区 切り を 示す 記号 

コン マ また だ は | 改行 
の 直前 まで が 一 つの 文字 列 と な る . た だ し ,『 印 で 囲ん で お け ば ,。 コ ンマ 
を 含む 文字 列 を 入力 する こと が で きる 。 
LINEINPUT 文 。 文字 列 型 デー ター の 入力 に 関し て は , 
LTN 選 TINPUT 文字 列 型 変数 名 

と いう 書き 方 が で きる . この よう に する と , 1 行 全部 (| 改行 | まで ) を 一 

つの 文字 列 と し て 読み 込ん で 文字 列 型 変数 と し て 格納 する こと が で きる . 
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/.5 文字 列 型 の 演算 


文字 列 型 デ ー タ ー に 関し 次 の よう な 処理 が 可能 で ある . 


1) 二 つ の 文字 列 を つない で 一 つの 文字 列 に する これ は 十 印 で 


表す . 





( 例 ) A$ の 内 容 が CAR 
B$ の 内 容 が OR 
な ら ば , 次 の よう に な る . 
A$ 二 B$ は CANOR 


2) 左 か ら z 字 目 ま で を と り 9 出す これ は 次 の よう に 表す *. 
LEET$( 文字 列 型 変数 名 , z ) 





( 例 ) 人 名 が 変数 NAMABB$ に 入っ て いる と き , その 頭 文字 を と り 出 す に は 。 
BEF も (NAMAEB$,。] ) 
と すれ ば よい 。 


3) 右 か ら z 字 目 ま で を と り 出 す . これ は 次 の よう に 表す . 
RTGHT$( 文字 列 型 変数 名 , z ) 





( 例 ) エ T$ の 内 容 が タ ノ キ ン な ら ば RIGHT$ も (T$。2) の 値 は キン に な 
る . 


4) 文字 列 の 中 央 部 分 ( 左 か ら 娘 の 所 か ら z 字 ) を と り 出 す 
これ は 次 の よう に 表す . 


MTD$( 文 字 列 変数 名 ,。 % 。 み ) 





( 例 ) MOJrT$ の 内 容 が CANDY の と き 。, 
MTD$ も (MOTT$。2,。3) 
の 値 は AND に な る 。 





* ま 一般に, 文字 列 変数 名 の か わり に 文字 列 式 で も よい . 以下 同様 . 
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5) 文字 列 の 中 に , 指定 され た 綴り が 含ま れ て いる か 否 か を 調べ , 
含ま れ て いる 場合 は , その 位置 (綴り の 先頭 が 文字 列 の 左 か ら 何 字 目 
に ある か ) を 調べ る これ は , 普通 , 

TNSTR( 文字 列 型 変数 名 , " 緩 り ") 
の 形 で 書く *( こ れ に は $ が 付か な いこ と に 注意 ). その 値 は 


その 文字 列 に その 綴り が 含ま れ な い 場 合 に は O 
含ま れる 場合 は その 位置 ( 左 か ら の 字数 で 表し た 先頭 位置 ) 


に な る . な お ,。 照会 開始 位置 を 指定 する こ 


の よう に 書く . 


と も で きる . その 場合 は 次 


TNSTER( 照会 開始 位置 , 文字 列 型 変 数 名 。 "綴り 『) 


( 例 ) O$ の 内 容 が 
10 TE 文 ニ Y マ GOTO 700 
L_ 先頭 し し V 和 字 目 


の と き 。, 


TNSTR(C$ 。 "GOTO『) 
の 値 は 11 に な る . 


6) 文字 列 の 長 さ を 調べ る これ は 


BN( 文字 列 型 変数 名 ) 
と 書く . 


( 例 ) 8$ の 内 容 が 、。 シー ュ ケ ムシ ュ ケ " 
 - ャ リス イキ ョ ノン スイ キ ョ ウマ ツウ ン キ " 
ルト コロ ニス ム ト コ ロ ヤ フ ~ ラコ ウシ ノ フ “~ 








ムコ コウ ノン スリ キレ カイ シ 
ョ ウマ ツ フ ウラ イマ ツク ウネ 
ラコ ウシ ハハ” イ ホ ” ハ " イ 


ホホ ハ ” イ ホ ノシ ュー リン カ ンジ シュ ー リ ンカ ン ン ク ~ 一 リン タ ~ イク 
ーー 一 リン タ イン ホ ” ン ホ "ココ ヒ "ーー ノン ホ ン ホ コナ チョ ウキ ュ ウ メイ ノン 
キュ ウス ケ な ら ば 1LEBN(S$ ) の 値 は 165 に な る . 


* 一 般 に は , INSTR( 文字 列 式 。 文字 列 式 ) の 形 が 許さ れる . 第 1 引数 
が 被 検索 文字 列 。 第 2 引数 が 検索 する 綴り を 表す . 
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/.O ASCII コー ド 


パソ コン の 内 部 で , 文字 (漢字 を 除く ) は 0 一 225 の 番号 で 表 き れ て い 
る . 文字 と 番号 の 対応 は , 右 の 表 の よう に な っ て いる . こ の 符号 系 は 。 英 
字 。 数 字 。 記号 * に 関す る 限り , ASCII (アスキー と 読む . アメ リカ の 標 
準 規格 ) の 符号 系 と 同一 な の で , ASCII コー ド と 呼ば れ て いる **. 


ASCITI コー ド を 文字 に 変換 する に は 次 の よう に 書く .*** 
OHR$( コ ー ド ) 


反対 に ,。 文字 を ASCIITI コー ド に 変換 する に は 次 の よう に 書く .*** 
ASC( 文字 列 型 定数 また は 変数 名 ) 
文字 列 の 長き が 2 字 以 上 の 場合 。 先頭 の 1 字 の み が 変 換 さ きれる. 





( 例 ) A の ASCII コー ド は 65 で ある か ら , 
PRTNT CHR$(65 ) 

を 実行 すれ ば 文字 A が 出力 され 
PRTNT ASO("A リ ") 


を 実行 すれ ば 数 値 65 が 出力 きれ る . 


の 際 の 大 小関 係 は ASCII コー ド の 大 小 に 従う . 
( 例 ) A < く 〇 こく …< く 選 こ ア く イ く ウ ぐ く …< く ン 
比較 する 文字 列 は 2 字 以 上 で も よい . その 場合 。 次 の よう に 扱う . 


先頭 か ら 順 に 比較 する 
文字 列 の 終端 より 先 は 値 ゼ ロ と みな す 
( 例 ) A< く AA<AA 汗 <AB 





※ ネ た だ し 壮 お よび 邦文 用 の 記号 (| 」 な ど ) を 除く 

ネネ 正確 に は , 「JIS C-6220 の 8 単位 符号 系 ] と いう の で ある が , 普通 は 
ASCII と 呼ば れ て いる 。. 

まま ※\ 玉 文字 も コー ド も 内 部 表現 と し て は 同じ で ある が BASIC に お ける 
扱い 方 が 異な る . ( 例 ) を 参照 の こと. 
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ASCII (JIS) コー ド 表 


文 コー ド 文 コー ド 文 コー ド 文 コー ド 文 コー ド 
字 10 進 16 進 | 字 10 進 16 進 | 字 10 進 16 進 | 字 10 進 16 進 | 字 10 進 16 進 
0 48 30 A 65 41 a 97 61 ア 177 B1 | ハ 202 CA 
1 249 31 B 66 42 b 98 62 イ 178 B2 ヒ 203 CB 
2 50 32 C 67 43 c 99 63 ウ 179 B3 | フ 204 CC 
3 51 33 D 68 44 d 100 64 ェ 180 B4 | へ 205 CD 
4 52 34 E 69 45 e 101 65 オォ 181 B5 | ホ 206 CE 
5 53 35 F 70 46 f 102 66 カ 182 B6 | マ 207 CF 
6 54 36 G 71 47 g 103 67 キ 183 B7 ミ 208 DO 
7 55 37 H 72 48 h 104 68 ク 184 B8 | ム 209 D1l 
8 56 38 1 73 49 i 105 69 ケ ヶ 185 B9 メ 210 D2 
9 57 39 J 74 4A j 106 6A | コ 186 BA | モ 211 D3 
K 75 4B k 107 6B | サ 187 BB | ヤ 212 D4 
を 白 32 20 L 76 4C | 108 6C | シ 188 BC | ュ 213 D5 
! 33 21 M 77 4D | m 109 6D | ス 189 BD | ヨ 214 D6 
けけ 34 22 N 78 4E | n 110 6E | セ 190 BE | ラ 215 D7 
# 35 23 0 79 4F | o 111 6F | ソ ツ 191 BF | リ 216 D8 
$ 36 24 P 80 50 p 112 70 タ 192 CO | ル 217 D9 
% 37 25 0 81 51 q 113 71 チ 193 C1 レ 218 DA 
& 38 26 R 82 52 r 114 72 ツ 194 C2 ロ 219 DB 
!。 39 27 S 83 53 s 115 73 テ 195 C3 | ワ 220 DC 
( 40 28 T 84 54 t 116 74 ト 196 C4 ン 221 DD 
) 41 29 U 85 55 u 117 75 ナ 197 C5 
* 。 42 2A | V 86 56 v 118 76 ニ 198 C6 ヲ 166 A6 
十 43 2B | W 87 57 w 119 77 ヌ 199 C7 ァ 167 A7 
,。 44 2C | X 88 58 x 120 78 ネ 200 C8 ィ 168 AB5 
ー 45 2D | Y 89 59 y 121 79 ノ 201 C9 ゥ 169 A9 
46 2E | Z 90 5A z 122 80 ェ 170 AA 
ノ 47 2F 。 A 1 ォ 171 AB 
58 3A | @ 64 40 |297 12 0C |「 A 2 ャ 172 AC 
: 59 3B [ 91 5B ! 改 行 13 0D | 」 A 3 ョ 173 AD 
く 60 3C | 科 92 5C | つ 28 1C | 、 A 4 ッ 174 AE 
= 61 3D ] 93 5D | 29 1DpD ・ A 5 175 AF 
> 62 3E | へ 94 5E 1 30 1E 
2 63 3F 95 5F ! 31 1F 
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/./ 例 是 


例題 1 一 一 商品 名 
ぃ いく つか の 商品 の , 品名 , 単価 , 数 量 (売上 げ 数 量 ) を 入力 し , 各 
品目 に つい て (単価 ) x (数 量 ) =( 金 額 ) の 計算 を し て 


品名 単価 数 量 金額 
の 形式 で 作 表し 。 最後 に 合計 金額 を 出力 する プロ グラ ム を 作れ 





[解答 ] 品名 は 文字 列 変数 H$ で 表し , 単価 。 数 量 , 金額 は 〒, 8S, 到 で 
表す こと に する . 品名 欄 が * 印 な ら ば 「 デ ー タ ー 終 り 」 と 解釈 し , 合計 
を 出力 する こと に する . 作 表 の 関係 上 , 入力 は R 選 AD 文 で 行なう (TRN 
PUT 文 で 入力 する と 入力 と 出力 が 一 緒 に な っ て うま く な い ). 

10 G= テ O 

る 20 REBAD H$,T,8 


30 TE HH$ も = リネ * ネ "GOTmO 80 文字 列 の 比較 
40 廊 ー ニ エネ * ネ 8 
50 PRTITNT H$,T,S,TmAB( 50) : 父 
60 GーG 十 区 1 金額 の 印字 位置 を 合計 
70 GOTO 20 欄 と 合わ せる た め . 
80 FOR エ テ ュ TO 11 
90 PRTNTT リーーーー 一 リ | 横 け い を 引く . 
100 NE エ 
110 PRTINT !「 こ | うけ いり! mAB(50) :G 
120 STOP 
130 DATA リリ ンコ | り 。200,83 
140 DATA !「 ミ カン リリ! の 0。10 | デー ター の 例 
150 DATA "* リ 0 O。O 
[出力 例 ] 
RUN 
リコ“ Z00 3 600 
= カー YO 10 YO00 
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例題 2 一 一 --ー HAPPY BIRTHDAY 
名 前 を 入力 し 。 それ を HAPPY BIRTHDAY の 歌 に 組み 込ん で 


HAPPY BIRTHDAY TO YOT. 
HAPPY 己 IRTTHDAY TO YOT. 
HAPPY BTRTHDAY DEAR 名 前 SAN.。 
HAPPY BIRTHDAY TO YOT. 


と 出力 する プロ グラ ム を 作れ . 













[解答 ] この プロ グラ ム に は 。 いろ いろ な 書き 方 が ある .。 下記 は その 一 
例 で ある が ,。 これ に こだわ ら ず に 各自 で 工夫 する と よい . 

10 HB$= リ "HAPPY BIRTHDAY リリ! 

20 TTY$= リ TO YOU. リ 

30 PERTNT リ お な まえ を いれ て くく た さい 『 

40 TINPUPT NAME$ 


50 PRTRNT 1 行 あ ける 
ウ 0 PRTNT HB$ 十 TY$ どちら も 結 上 果 は 同じ 
80 PRTNT HB$: "DEBAR り :NAMAEB$: りり SAN." 
90 PRTINT HB$:TY$ 

100 PRTNT : PRTNT : PRTNTT 3 行 あ ける 
110 GOTO 30 

[出力 例 ] 


オナ マエ ラ ヲ イレ テン フタ サイ 
や キヨ ミン 


HAPFP ビ YY BTEETH ロ AAY ー T ロ YOU 。 
HPEFEY - 選 T 民 THEOAY TO YU 。 
HH へ ビビ マイ ー ピエ に ビエ ロロ ヘス Y ロビ AFR キヨ =: 人 の - 
HH へ ビビ Y BTE ビ THEPAY TCPOO YU 。 


オナ マエ ラ イレ テウ フタ ~ サイ 
や タケシ 


HHAFEEY ーー 己 TETHDAOY TO YO 。 
HAP ビ PPCY - 選 エ ETH ロ AAY TP 1L8 に 
ロム ビビ イア ーー ETFETHD ロ DAY ロビ AR タケ ミン AFI - 
nH ハビ PF ビ Y ー EE に THPAY TO YO ロロ! 
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例題 3 名 簿 の 作成 

クラ ス の 名 簿 を フロ ッ ピ ー・ デ ィ ス ク ま だ た は カセ ッ ト ・ テ ー プ に 入 
れ て お いて 。 必要 に 応じ て 。 訂正 し た り 。 追加 し た り 。 削除 し た り 。 





学生 番号 順に 並べ か えた だ た り 。 ア イ ウ ェ エ オ 順に 並べ か を だ ただ たり 。, プ リン ター 
に 出力 し た り 。 する だ め の プ ログ ラム を 作れ . 


[解答 ] 簡単 の た め 名 簿 は 

学生 番号 氏 名 
の 2 項目 だ け と する (項目 が も っ と 多く て も 要領 は 同じ ). ファ イル の 先 
頭 に は 。 タイ トル (た と えば 「2 ね ん る くみ の めい ほ ~ 」) と 人 数 を 
記録 し 。 それ に 続い て 各 人 の デー ター ( 各 2 項 目 ) を 順不同 で 入れ る こ 

と に する ( 別 案 と し て は , 常に 学生 番号 順 ま た は アイ ウエ オ 順 に 整列 し 
た 形 で ファ イル を 管理 する 方 式 も 考え られ る . 実務 に は その 方 が 便利 で 
ある が 。 プロ グラ ム は や や 複雑 に な る ). 

アイ ウェ エ オ 順 の 並べ か え は 。ASCII コー ド の 値 の 大 小 だ け で 処理 する 
こと に する 。 じつは ,。 その よう に する と 。 提 ( よ う ) 音 や 所 (は つ ) 音 の 文 
字 ( ャ ュ ョ ッ ) の コー ド が ア よ り 前 に な る と か ,。 濁点 も 1 文字 と し て 扱 
われ て し まう な ど ,。 多少 。 不 自然 な と ころ も ある が , ここ で は 一 応 そ れ 
で も よい と いう こと に し て お く (まとも に 処理 し た けれ ば ,。 コー ド 変 換 
を すれ ば よい ). 整列 の 方 法 と し て は , 最も 簡単 な 交換 法 を 用 いる こと に 
する (これ も プロ グラ ム を 簡単 に する た めで 。 少 人 数 な ら ば 実用 上 問題 
な い ). 

人 数 は 200 人 以下 と する .。 この ぐら い の 人 数 だ と , ファ イル 全体 が 
BASIC の デー ター 領域 に 入っ て し まう の で 処理 は 簡単 で も る (ファ イ 
ル が メモ リー に 入り きら な い 場 合 に は 設計 を 全面 的 に 変更 する 必要 が あ 
る ). 

以下 に 示す の は ,。 OPEN 文 お よび プリ ンタ ー 出 力 の 命令 だ が Level-3 
用 に な っ て いる が , そこ を 直せ ば 他 の 機種 で も だ いた いそ の まま 使用 で 
きる ( 平 片 名 を 使用 で き な い 機種 に お いて は ,。 そこ を 片仮名 に 直す ). 
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1 〇 ) 

で (0) 

る 

人 0) 

つ (.) 

ら O 

プ 0) 

80 

ワ バ ) 

1 0Q 
110 
1 で 
1 
1 4 
150 
1 6 
1 7 
18GQ 
1 9 
る 0 
で 10 
ご で 
で さ () 
る ) 
ご つの () 
どら 6() 
7 
<BO) 
290 
& ふ OO 
の) 
さる 2 る 0 
ささ 0 
さき 40) 
さぶ ら 0 
さら 6 
さ /0) 
さぶ BO 
さり 0 
400) 
410 
人 4 で 
4 さ O 
4 人 4 
45Q 


REM ーーーーーーー めい コマ ロロ 1 …ーーーー…ー 
CLE 人 RGOOO 
DIM EANGOU KEOO) NAME ( で 00) ) 
GUTOU 9 さい 
REM ーーー し ん き に ⑪ う 5 中 よく ーーーー 

INFUT " 恒 イ ト 由 和 を い 拓 で て きた! さい "TITT し LE 第 
INFPUT リリ せ 7 ん An で" な ん に ん で す が お " ョ N 
FUR [=1 TU N 

INFPUT MY ん こう リョ ERNGUIU (1) 

INFUT "な ま ミ "NMRE ま ( エ ) 

MEXT Ii 

RE TURN 

REM ーーー エリ" ィ ォ ご コ リ "ドイ ーーーー 

FRTINT "SSRERREERRRU ETTTLE ま ERRSEESSET 
FUR 1=1 TH 届 

FRINT _ USING" 提 電電 "! ョ Ts 

FRTNT USING" 韻 提 拉 拓 提 提 電電 韻 井 " ュ EBRANBULUI( 1 ) 
FRINT NAMAE ま (1) 

NEXT 

INFUT "UE で TU。 ロ EE まま 

RETURN 

REM ーーー つづ "リコ ロー に し ゅ つけ よく ーーーー 
OUFEN "UP 寿 1.。 PLFTOg " 

FRINT 昔 } 

FRTNT 手 1。 0 打 RRSESROU ITITLE ま 8 骨 RRRRESRET 
FRINT 提 1 

FUR 1=1 TOU N 

FIRINT 1。UBING" 提 村井 " ュ Ts 

FRINT 揚 1。USING" 提 提 章 柱 提 提 提 電電 振り ョ EANGUU(T)s 
FRINT 埋 1。" Ds NAMAE 和 まま (1) 

NEXT I 

CLOSE 揚 1 

RETURN 

REM ーーー めい 7 の て で てい せい 一 一 一 

INFUT りき * ょ よう (4 ん こ * うり ョ エ 

INPUT 4 ん 4 こ 7 う " ョ ERNGOUU( エ ) 

INFUT "な まく" ョ NM 人 AE ま ( エ ) 

RETURN 

REI1 ーーー めい IE の つい お ーーー 

NMN=N+ 1 

INFUT "2 4 こう "4 BNGBOUU( 爪 ) 

INFUT "な ま ミ "sgNAMAE ま も (N) 

TITNFUT "これ て 7 お 99 て で て) す お ?(Y/N) )。 FIN まま も 
IF FIN も ="NU GOUTO 40Q0 

RETURN 
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46 
人 4 79 
4BO) 
49 
lat 
910) 
ウマ で ロ 
いふ) 
うつ 人 4 
ウツ つ () 
うら () 
7 
っ BOO 
J ワ (0) 
ら 10 
ら 6 で 
ら ふ O 
ら 6 人 4 
ら 65 
らら の) 
ら 67 
ら 8O 
ら 69 
ア 7QO) 
ア 71 
プア で 
ノ ス 
プア 介 0 
ノバ ) 


7 
780 
ノウ 0) 
80Q 
810 


< 


昌 さ GO 


8400) 
5 
60 
7 
88() 
7 
9 
910) 
9 
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REM ーーー し "し ま よ お ら さぶ し " よ ーーー 
INFUT "まき * よ うん こう "= ュ エ 

FRINT ENBL 15H ま (1) ,。 JAFIANESE*( { ) 
INFUT "UE で (Y/ZN) "』 ロ EE 

1F UE ま ="N" BOTO 47Q 

IF I=N BOTU 556Q 

FUR J=I TO NN-1 

ENGIL_ 1 SH も (J ) =ENBL 1 5H ま ( ゴ +1 ) 
JAFIANESE ま も (JJ) =JAFIRNESE ま (J+1 ) 


NEXT J 

N=INー 1 

RETURN 

REM ーーー 〒" ェ の に お きこ も ーーー 
JFEN "OU 拉 1。) そい わし "て で ん" 


FRTINT 1』N 

FHR 1=1 TH N 

FRINT 本 1。ENBL TSBH ま (T) 』"、" JAPANEGE ま (1 ) 
NEXT i 

CLOSE #1 

RETURN 

REM ーーー 〒" ォ スロ コガ ら よめ こも ーーー 

DFEN "1 0 。 提 1 。" ミ いわ し * てん" 

INFUT 揚 1。N 

FUR 1=1 TO N 

INFUT 荘 1。ENBL TSH ま (1T) JFANESE ま (1 ) 


NEXT 1 

CLUSE 1 

RETURN 

REM ーーー 4 ん こ * うし * ゅ ん に な ら へ * お ミ 旋 ーーー 


リフ 60 FUR MM=N TH 2 STEF -1 ーー 


FUR 1=2 TO M ( 
IF ENBLISH ま (1 ユー1)ENBLISH ま (1) GOTO 日 1Q 」 
SMAF ENGL ISH ま (エー1 ) 。 ENBL 1 SH$ (1 ) 
SMAF JAFANESE ま (エー1 ) 。 JAPANESE$(1 ) 





NEXT 1 / 
NEXT ーー ーー 
RETURN 

REM ーーー イロ エ オ し "ゆん に な ら へ "お そる ーー 一 


FOUR I=E TO MM 

IF JaFRNESE ま (エー1) 人 FNESE ま ( エ T) GUTO 00 
SMAF_ ENGL.IGH 和 も (エー1 ) 。ENGLTSH ま (1) 

SMAF_ JFNESE ま (エー1 ) 。JaFANESE ま (1{) 

NEXT 1 

NEXT 由 

RETURN 
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%O REM ーー 呈 い 1 モエ こと h ロ 1 ロロ CC ロモ 号 ビ ーーー 

94C) CLG5 

79790 FRINT "ここ は めい IE ガ ん 9 の コマ ロコ ドラ う ロ で " す 。 
60 FRTINT 

70 FRTENT りり し ん を き さ で せい 和 ロ に に ュ ュ と aaaa aa 1 " 
9BO_ FRTINT DP am ロー に し ゅ うけ スト テト ュ と とこ で で こと ee se リ 
OO _ FRIENT すり で いせ 和 ロ に に と と と と aa pom ae am um ma am an an 
1000D FR TNIT すり つい お く ド ミュ ュ セト aa am as sa ae 44" 
1010 り 0 FRETNT りさ し すま よく ュ に ュ ュ ニュ ュ 人 ms as 王 
1D り SO FRTNT リエ リィ ォ ペ ロコ に お きこ も ャ ュ トッ タトゥ トッ トト し ト と と に ここ で ょ ら 6“ 
1030 FRTNT リモ リャ ロロ ガ ら よう こも ュ ュ ッ ト ッ ュ ュ == ド = ュ ャ トッ プロ 
104Q0 FRINT DO ん もこ し" ん に な ら へ " ガミ る ・・・・・・・ こ 日 " 
1050 FRTINT イロ エキ し ゅ ん に な ら へ "ガミ *・ = ュ ・ "・・ ワ 「 
1060 FRTITNT リエ モリ ォ ペ コ 9 ルイ ミュ ャ で ュ ュ ュ に mm 1()! 
107O_ FRINT 

108O ITNFUT リーーーーーーーーーーーー 一 テテ メッ で“ 相 に し ます ガリ " ョ E 
1090 CLS 

1100 UN ER ロ OSUE SO。 SO。 さ 40. 390。460.5BO。 670。750。 846。 1 さ O 
1110 ロ UTOU 940 


[出力 例 ] SSRSTY ミ の の UET 対 SNS 身 


1 人 すら よね" 1 し せつ うこ 


ー さき 4 お どう まさ ひこ 
ふ 04 さ きむ ら まり ) 


1 1 むら な の けけ ニ 
90 さ 6 お す が " 。 よう ニ 
105 は せ か が か * わす ひる 
111 ひら や ま よう 

90 さき あさ な を き "。 と し お 
9007 いし くる けつ うし“ 
095 な が 1 やま の せこ 
140 や すま つ めく あ 
01 6 お が" 5 と し せこ 


ON ひひ 中 


テー ヒー トー 
「J ーー 


[アイ ウエ オ 順 に RSSEY ミ の めい ば" 括 灘 SS 
並べ か えた 結果 ] 還 
1 003 あさ な き * 。 と し お 
る 9007 ULK* る りゅう し * 
さ 9016 お が "1 と し ひこ 
4 90 さ 6 ガ す が お" よう こ 
90 さ 4  。 お と どう まさ ひこ 
ら 6 904 さ 。 。 きも ら 5 まり 
7 9095 。 な お やま の 品 * ひ こ 
9105 。 は せ が お * 1 や す び る 
9 9111  ” ひら 5 やま よう 
10 91 さ 1 も ら 5 な ガ の 9 こ 
1 1 9140 や すま つ めく <? の 
12 9146 よ 192" や し せつ こ 
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例題 4 英和 辞典 
簡単 な 英和 辞典 (単語 一 つ に 対し 訳語 は 一 つ だ け と する ) を フロ ッ 
ビー・ デ ィ ス ク ま た は カセ ッ ト ・ テ ー プ に 入れ て お いて ,。 必要 に 応じ 
て , 訂正 し た り , 追加 し た り , 削除 し た り , 見 出し 語 の ABC 順に 並べ 
か えた だり, プリ ンタ ー に 出力 し た りす る だ ため の プロ グラ ム を 作れ . 






[解答 ] 辞書 の 規模 は メモ リー (BASIC の デー ター 領域 ) に 収容 で きる 
程度 と し , 次 の よう な 配列 の 形 で 扱う こと に する 。 


添 字 ENGLTSH$ JAPANES 芯 $ 
1 CAT 
2 DOG 


3 LTORN 


処理 の 要領 は 例題 3 と だ いた い 同 じ な の で 。 例題 3 の プロ グラ ム の 変 

数 名 を 

BANGOU - 一 > ENGLiTSH$ 

NAMAE$ 一 JAPANESE$ 
に 変更 し 。 ファ イル 名 を 適当 に (た と えば 

MEEIBO 一 えい わし ~ て ん 
に ) 変更 し , 見 出し を 

ほ ・ ん に うー ニー えい ー・ 

な まえ ーー に ほん こ ~ 
の よう な ぐあい に 変更 すれ ば ,。 英和 辞典 の プロ グラ ム に な る . この よう 
な 書き か え に は , 後述 (例題 7) の TOOL 1] を 用 いて 行なう と よい . 
行 20 の OLEEAR 文 は 文字 列 型 変 数 の た め の 記 憶 領域 の 広 さ を 設定 する 
も の で ,。 この プロ グラ ム で は デー ター の 大 部 分 が 文字 列 型 で ある か ら , 
大 きめ に 8000(8KB) と し た . 


7。 


10 

に) 

了 和 の 

4 

5() 

ら 0 

フ () 

sf 

0) 

100 
110) 
120) 
1 3 
1 4 
1 5 
1 6) 
1 7Q 
18) 
1 9 
200) 
210 
ダ の 人 の 
ご さき 
240 
250 
ご ら の 
2 プロ 
ご BO) 
29 
300) 
310 
さり 
ふさ 0 
さ 40 
さら 50 
さら 6 
さ 70 
380O 
さ 90 
4Q0Q 
410) 
420 
4 る O 
440 
45Q 
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REM ーー ニーー ニ ーー いり 補 し "て ん ーーーーーー…ー 
CLEAR _ BOOO 
DIM ENGL ISH ま も (SQOO) 。 JAFANESE ま (GOO ) 
GUTU 930 
REIMM -ーー し ん き に ゅ つけ よく ーーー 
TITLE ま ="ENBL1SH-JaFANESE DICTIUNaRY" 
内 =1 
RET4 ーー 1OOD 一 ーー 

INFUT "ミミ いこ 7 "saENBL TS5H ま (NN) 

INFUT "に ほん 4 こ ) "4 JAPANESE ま (NN) 

IF ENBLIGH ま も (N)=" 9 THEN Ns=N-1:RETURN 
N=N+1 』 GUTOU 90 

REM ーーー キリ ィ ォ オス コ " マ ルイ ーーー 

FR 
FUR 1=1 TO N 

FRINT USING" 提 提 梓 am 

FRINT ENGLIGH ま (TI)。 

FRINT JaFaNESE ま も (1) 

NEXT 1 

INFUT "DOES で OU UE ま 

RETURN 

REM ーーー つつ 2 ロー っ ー に し ゅ つけ よく ーーーー 
UFEEN "OU 41。 "LLPFTOI" 

FRINT 提 }1 

FRTNT 1 Ua TITLE ま 8 胃 RES7 
FRTINT 井 1 

FOUR 1I=1 TO N 

FIRINT 本 1.USINB" 揚 募 提 " ョ Ts 

FRINT 井 1。ENGLIGH ま (1 エ ) 。 

FIRINT #1。JaAPANESE 和 ま も (1) 

NEXT 1 

CLOSE 乾 1 

RETURN 

REIMN 一 一 し" し ょ の て いせ い ーーー 

INFUT りき? よう 7 ん こ ) う リョ エ 

INFUT "えい こ に 7 "4aENGL 15H ま (1 ) 

INFUT "に ほん こ * "3 JAPANESE ま 和 ま () 
RETURN 

REM ーーー た ん 4 こ * の つい ガ ーーー 

N=N+ 1 

INFUT "えい こ に 7 "ENGL 15H 生 (N) 

INFUT "に ほん 4 こ * JaFIRNESE 和 ま (N) 
INPUT "これ で 7 お 9 て 7 す ガ 2(Y/N) "FIN ま を 
IF FIN も ="N"D_ BUTO 400 

RE TURN 
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人 46 REM ーーー めい UE お ら さぶ し "まま ーーー 
479 INFUT きす よう ん こと う リ ョ エ 

48O_ FRINT EANGOUU(T) 。 NMRE ま ( エ ) 
490 INFUT "OUEP(YZN) " ョ ロロ に まま 

っ 500 1F UE まま =" リ NPD BUTOU 47Q0 

510 JF I=N BUTOU ら 560) 

JO FOR JJ= テ 1 TO N-1 

ら さ 0 EANGOUU ( ゴ ) = モ ENGBOUU (J+1 ) 

4 NAMAE ま (J) =NAaHAE ま (ゴロ +1 ) 

らら 0 NEXT J 

ら 60) NN-1 

ゥ 7 RETURN 

っ 38O RE ーー エゴ ペコ に お きこ も ーー 一 

syO LIFEN "ロロ DU 六 1。 "MEIBO" 

ら 50 け 9 FRTNT 昔 14TITLE ま 

610 PRINT 井 1』N 

esOD FOUR 」=1 TU NN 

ら 6 さ O FRINT 半 1。ERNBHU(T) 。 NAMAE$ も (上 ) 
ら 64 _ NEXT 1 

650 CLOSE 提 1 

66(0) RETURNI 

ら 6 ら 7 の RENM ーーー そ エド ャ で ロロ がら よみ あこ も お ーー 一 
680 JFEN "TED。 拉 1.。 "METIBO" 

679 INFUT 昔 14。TITLE 生 。』N 

700 FOUR エエ =1 TU N 

71 の INFUT 拉 1.BANGUU(T) 。 NaAF4GE ま (1 ) 
7EO NEXT 1 

ア 73 CULLUSE 昔 } 

74D RETURN 

ァ 509 REM ーーー に ん こ 「 つう し) ん に な らら へ" お きる ーー 一 
760 FOUR MEN TU SE BTEF -1 

7Z70 FUR TI= デ E TH NM 

7BO 1F BNGOUU【 エ ー1) BRNGBOUU( エ T) GOUTO B10 
7Z79 5MRF_ BANGUU( エ ー1) 。 BANGUU【I) 

8 は OO SMRF_ NRKIGE ま (エー1 ) 。 NAME まま (1) 
810 MEXT 1 

ロ デ り NEXT 由 ミ 

50 RETURN 

B4 り 9 RE 一 ーーー PF イロ エキ し に ゆん に な ら へ AT お 訪 一 一 一 
BSO_ FOR M=N TO だ STEF -1 

86 り FOUR TEE TO 

870 TF NaMIGE ま (エー1) 光 NRME ま も (1) BUTO 900 
8 の SMAF_ BANBUU( エ ー1) 。 BANBHU【) ) 
B ワ 70 SMRF_ NAMIE ま (エー1) 。 NRHIGE. ま も ( エ ) 
りり NEXT Ii 

21 の 9 NEXT 

OFRETURN 


7。 7 


9 ふさ) 
⑦40) 
50) 
6 
7 
8O 
9 
1 0QQ) 
101O 
10EO 
1 0 さい 
104Q 
105QO 
1 GO) ら 6C) 
10 ア 7 
1 08Q 
107 
1 1 
1110 


例 


REM ーーー 5w1tChin ロ Center: 


CLGS 
FRINT 
FRTINT 
FRINT 
FRINT 
FRINT 
FRINT 
FRINT 
FRINT 
FRINT 
FRINT 
FRINT 
FRINT 
FRTNT 
INFUT 
CLS 


[出力 例 」 


[ ABC 順 
の リス ト 」] 


[アイ ウエ オ 


順 の リ 


題 


"これ は 


"し ん きさく せい ・・・・・・ 
6 
1 で いせ いい に ょ に ょ に apaa ss 
1 つい 用 る くに ュ に ュ aaaaa 
"さく し * ま ・ 
「 エ リィ ォ ベジ に お きこ も ・・ 
"エー ォ ペ コ ガ ら よ みこ も ・ 


"RBC し * ゅ ん に な ら へ " お える ・ 


リ FT0 エ す ー し" ゅ ん に 


リキ オペ コリ レイ ザイ ャ ャ = 


えい 1 わし" て ん へ ん し ゅ う 


「 コ 9 ロン ョ ー に し ゅ つり よく 


ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー 
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に す 』 6 


sm! 
1 0)『 


な ら へ ~ ガミ る ・ 


< 
CE に 0 


と * 所 に し ます お " ェ ド 


ODN ド BUSUB 5O。220。 さ 40。 さ 90。460。 昌 B0。670。75Q、 昌 40。 1 
BOTD 940 
SSRSENBL TSH-JAPANESE DICTIUNARY 近 3 
1 CAT ネコ 
る DOG T 評 
さき し LION ライ キオ: 
4 TIGER トコ 
5 RAT ネー ミ 
6 MDILLF 計れ 
フ 7 CAMEL ココ 
8NRBRSSSENGBL TSH-JAFANESE DICTIOUNARY 膨 扶 寺 RE 
1 CAMEL う ロ * 
2 CAaT ネコ 
さ DOG イ 評 
4 LION に 
5 RAaT ネズ" ミ 
6 TIGER トラ 
7 MDLF オオ 1 ミ 
沿 SRSSSSSSSENBL 1SH-JAFANESE DICTIDNARY 潜 SS 


スト ] 


DUG 
MOULF 
TIGEFR 
じ 人 a「 
RaT 
LTOUN 
CaIEL 


SS いけ か お け う 


イ 宮 
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例題 5ーーーーー 子供 銀行 の 預金 業務 
ディ スク を ラン ダム ・ ア クセ ス *・ フ ァイル の 形 で 使う 練習 に , 子供 
銀行 の 預金 業務 を 処理 する プロ グラ ム を 作れ . 






[解答 ] 処理 と し て は 

新規 加入 解 約 預け 入れ 払い 戻し 
を 扱う も の と し 。 必要 に 応じ て 預金 残高 リス ト を 作成 で きる よう に する . 
レコ ー ド の 形式 は 


加入 者 氏名 残 高 
(15 バ イト ) ( 4 バイ ト ) 


と する 。 文法 の 詳細 は 付録 有 A.3 を 参照 され た い 。 行 番号 6000 て の サブ 
ルー チン は ,。 処理 内 容 。 口座 番号 。 加入 者 氏名 。 金額 。 残高 を 1 行 に プ 
リン ト す る た だ ため の 工夫 で ある 。. 


[プロ グラ ム 例 ] 

10 REM ーーー こと “も き “ ん こつ ーーー 

20 PRTNT "し ん き お に D る に に くに ド aa akasakasa as scs。 1 い 0 
5 FRTNT の お いい 生 さ ュ ュ と たと た oo aa oooeseees つり 
40 FRTNT の あす 》 けい 1 に さり 
呈 O FRTNT 9 は G い も を た と し 人 4 
ちら FRTNT すり ト ミュ と aa aa aa an am ea 品 " 
7O PRINT 


80 INFUT ドド 

70 UN EE GUSUB 1000。 SOQOO』。 3000』 4000。 GOQOQO 
100 GUTO 10 

1000 OUFEN "R"。 提 1。 "EANE " 

1010 INFUT りな まそ りり ョ NAMAE* ま 

10EO_ TINFUT の きん が) る リョ EEINGAKU 』 ZaNDAEA=E TNGAELU 
1030 FIELD 昔 1。 さ O AS _N も 。4 人 AS Z ま 

1040 LSET N 和 も =NAMAE ま 

1050O LSET 7 も =M に KGB ま (ETNGBAEUU) 

1060 BNGUU=LOUF (1 )+1 

1070 FUT 幸 1.BANGUU 

1080 CLOSE #1 

1090 MIDAS 1 も = し ん き お が にゅ うり 

1100 GOUSUB 6Q0QQ 

1110 RETURN 





ネ * 。 234 ペ ー ジ 委 照 
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で 10) 
ご 100) 
が 6) 
で いさ 0 
ご 0 人 4 
2 
ぶ の 6) 
e り 7 
< 
ご 07() 
1 0)C) 
=110 
で 1 で 0 
さぶ 00C) 
ぶり 1 
ス 0 で けけ) 
ふう. 計 (7 
ふ O 介 CO) 
さ ふつ) 
3 りら 6 
さり ア 7) 
ふ 08BO 
さ 0 ワ 0) 
さ ふ 1 00) 
さぶ 116) 
させ で 
OO)C) 
4010) 
和合 0S) 
介さ 
44040O 
人 4 の) 
人 06C) 
4070) 
408O 
す 49 
全 17Q 
人 4110 
年 1 で O 
全 1 さけ 
人 1 任 
人 41 ら 
全 16(O) 
人 41 70 


DFEN "R"。 栓 1 。 "BANE" 

INFUT "こう さ * 1 が ん こう "= BANGDU 
FIELD #1。 ネ Q AB N ま も 。4 PS Z$ 
BET 1 。BANBUU 

NM 人 AE まま =N ま 

ZANDAFA=CVG ( 7 も ) 

LSET N ま ="" 

LSET 7=MEG( 〇 ) 

FUT 1。BANBOU 

CLUBE #1 

MTDAG 1 = お いね リ 

BUSUE 6QQQ 

RETURN 

DFEN "RR"。 拍 1 。 "EANE" 

INFUT "こう さ * ん ご" うり * BNGUU 
INPUT "きん が "<" ュ ETNBRAEU 
FIELD 半 1。 さ 0O AS N も 。4 AS Z$ 
BET #1 。BaNBDU 

NMAE ま =N 叶 
ZANDAE 人 =CVG (7 ま ) + ド TNGBAEU 
LSET 7Z*$=ME も (ZNDAFA) 

FUT ##1 、BRNGDU 

CLOSE 1 

MTDQG1T ま = あす" けい 所 

BUSUEB 6Q9Q0Q 

RETURN 

DFEN "R"。 提 1 "BANE" 

1NFUT "こう さぶ ん こう "』 BANBDU 
INFUT "きん お が "リュ ETNB 人 FEU 
FIELD 韻 1。 さ 0 AG N も 。4 QB Z* 
BET ##1。BRNGOU 

NAMAQE =N 還 
ZANDAE ロ =CV(Z ま ) ドド TINBAFU 
IF ZANDAERSO_ BOTD 4150Q 
LSET 7Z ま =MEB も (ZNDAEA) 

FUT ##1。BANEBDU 

CLUGE 1 
HIDQB1 ま =" は らい も と し" 

BODSUE 6Q0QQ 

RETURN . 

FRTNT "さん た "お 員 そ メ 

FRTINT "HP ASY いさ Y ん た だ "のり CV (7) 
CLUSE #1 

RETURN 
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2000 FEN "RU 提 1。 "EANE " 

5010 OUFEN リロ TU 手 だ 。 "PLFTOgI" 

っ っ OS FRTNT 提議 = FRINT 拉 父 

rh FRTNT 提 。 りこ うさ 1 ん こう りお に ゅ 5 し ゃ 
ssO 侍 2 ド TELD 提 1。 さ O GS N も 。4 全 S ZZ まま 
CC) RM 人 メニ LUDF (1 5 

O ら CO FUR BNGOUU=1 TO BT4RX 

7 GE に 揚 1.ERNGOJU 

sc3() NM 人 RE 還 = 愉 中 

っ の 00 ZNDAE ロ = じ CV (ZZ も ) 

100 ド RTNT 提 人 @。 BANGHU。 

cs110 FRINT 失 選 J USING 

ご 1 だ OO FRTNT で ZNDAFEL 全 

コロ 1 ふけ NEXT BANMNGUU 

q コ 1 人 40 じ LOSE 提 1 

190 CLOSE 揚 記 

16 ら 9 RETLURN 

6000 UFEN "OU 提 。 DLPFTOI " 


6010 FRTINT 失 EJUSING"& sa11TD 人 GT も * 


し めい りり さん た お" 


を り ・ NAMAE*』 


60 で DO_ FRINT 提 だ USING 提 揚 揚 排 提 拓 電 " ョ BANGOULIs 

ら 630 FRTNT 手 で USTNG" 多 ys NaHAE ま ょ 
6040_ FRINT 柱 で USING 幸 持 拉 韻 状 提 拓 " ョ に KINGREUs 
60G0_ FRTNT 拉 で ご USING 埋 料 揚 拓 井 井 杜 "リョ ZND 人 SE 台 


6060 CLOSGE 昔 
6070 RETURN 


[出力 例 一 一 経過 記録 


し ん さき お に ゅ う 
し ん き お に ゅ うつ 
し ん き お に mm の 
し ん き お に ゅ 5 
あす "付い 社 

MM らい も だ "し 


すき * も と せる し 
は た ぶよ し た が 
な お 1 や ま の" ひ ニ 
し Y いい け で "の き 
すき * も と ひる し 
し Y い せ で "の き 


上) お 中 トト) 


[出力 例 一 一 残高 リス ト ] 


< 


さき Y IA ん こう お ガ に ゅ うし や し めい さ * ん た * ガ 
お お わ は る の さ O00O) 
すき “" も と ひる し で き 00) 
は た ぶ "。 よし た が 95O 
な お やま の "ひこ 2000) 
mL し Y い ひで * の き 118Q 


や 4 ト ) ビ 


1800() 
9 ら 
2000 
130Q 
ご (.)() 
1 どい 


18BQQ 
50) 
ご 0 
1 300) 
ご 30)() 


118G 
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例題 6 一 一 一 在庫 管理 
前 問 の プロ グラ ム を 改造 し て 在庫 管理 の プロ グラ ム を 作れ . 


[出題 の 意図 ] 前 問 の テー マ 「 子 供 銀行 の 預金 業務 」 は , 実務 に は ほど 
遠い 。 単なる 遊び の よう に 思わ れる か も し れ な い が , それ を ほん の 少し 
改造 する と 在庫 管理 の プロ グラ ム を 作る こと が で きる . 在庫 管理 は , 

商 品 部 分 品 材料 消耗 品 
な どの 手持 ち 量 を 監視 し て , 在庫 切れ を 起こ き な い よう に (し か し , 手 
持ち を 多く し すぎ て 無駄 を 生ずる こと の な いよ うに ) 調節 する 仕事 で , 
商店 や 工場 は も ちろ ん の こと , 研究 室 や 計算 セン ター な ど 。 あら め ゆる 活 
筐 に 役立つ も の で ある か ら , この 機会 に 習得 し て お く と よい 。 要領 は , 
前 問 の 預金 業務 と だ いた い 同 じ で , 

[預け 入れ 」 を 「 入 庫 量 ]」 に 

「 払 い 戻し ] を 「『 出 庫 量 ] に 

「 残 高 ] を 「 在 庫 量 ]」 に 
書き か えれ ば, 在庫 管理 プロ グラ ム の 主 部 分 が で き あ が る か ら ,。 あと , 
適当 に 手 を 加え れ ば よい . 
[プロ グラ ム 例 ] この よう な 書き か え に は , 後述 (例題 7) の TOOr 1 
を 用 いる と よい 。 そう いう 方 法 で 作っ た プロ グラ ム の 一 例 を 以下 に 示す 
(じつは 。 この プロ グラ ム の も と に な っ た 「 子 供 銀行 プロ グラ ム 」| は 旧 
版 で 。 その 後 。 子供 銀行 プロ グラ ム に 少し 手 を 入れ て いる の で , 現在 の 
版 を 機械 的 に 書き か えた 場合 に は これ と 少し 違っ た も の に な る で あろ 


う ). 

10 REM ーーー さ " いこ お ん 9 ーーー 

327 FRTNT "ひび ひん めい つい お セト に に 信人 aa ao ao aa ea ao aa aa 1 ! 
3 PRTINT "な ん めい で ミ し に ま よ ょ こ ト ドド に に ュ aaaoa omaensesss つい 
40 FRTINT "に 各 ニ エミ ミュ トミ セ aa aaapao seemssmuemss ss さ リ 
っ 20) FRTNT すし 0 コー 4! 
ら 0 FRTITNT すけ Sa aaa ana aaoeoao ao an aa a ma 避 り 
7O FRINT 


8O0 INFUT ドド 
70 ON EE GBOSUE_ 10004 SO000。 0O00』 4000。5QOQG 
100 BUTOU 10 
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1000 UPFEN 「R)。 提 1。) で) いこ コイ 帆 「 
10910 INFUT ひん ゆい" 。HINME も 
10SO_ INFUT りす 3 人 9 よう" 。 SUURYUU 
10 ス 0 FIELD 提 1.3 さ 0 6 N ま も 。4 AS Z 和 まま 
1 の 40 LSET NN も =HINIE {も 

10 コ つり LGSET /Z ま も =MEKG ま (SUURYOUU ) 
10609 BNGOUU=LOUF (1 ) +1 

197 け 9 FUT 拉 1。EANGOUU 

108BO り CLOSE 持 1 

1090 UPFEN "0 手 。"LFTOg “ 
110O) ID 人 RGT ま ニモ リ し ん き どろ る 
111 り のり BUSUE 6Q00O 

11 ど ご O CCLUGSE 提 分 

1130 RETURN 

egO0O OUFEN "RP。 提 1。 りさ) いこ 3 テ イル 
* り 1 INFUT リコ ー ト ドリ BNGOUU 
< だ DO FIELD 拍 1。 さ OO SG NN も 。 人 4 全 S Z ま 
<O う 0 GET 提 1.。EBANGOU 

< 人 4 HINHE 1 各 =N 各 

< いら) 7Z7 全 TKOU ミ CU りら (Z 和 も ) 

<O60 LSET IN も = リリ 

<070 LSET まま =MEK も (O) 

z0BO FUT 拉 1.BNGOU 

<O0 ワ OO CLUBSE 電 1 

e10O0O UFEN OUT 寿 。 "LELFTOg『 
=110 TDAGT ま = モリ ひん めい さく し ょ より" 
<1CO BUSUE 600Q 

1.30 CLUSE 振 

e1 人 4D RETURRN 

さ 000_ ロ FEN "RU 揚 1 。 り さい ニコ テイ 中 
3 ぶ 01 の 9 INFUT リコ ー ト ドリ ENGOUU 
OO TINFUT すう 9 ょ 50 SUURYUU 
0O ぶ (0) FIELLD 提 1. 30 SG N 和 まま 。4 AS ZZ まま 
ぶり 人 0 ロ ET 提 1.BANGOU 

ご) HI NIME 【 生生 

さけ ら 0 ZTTFE ロ =CVS (ZZ まま) GUURYOL 
35070 LSET 本 ME まま (7Z 骨 1 ドロロ) 
SG は GO FLHT 持 1. BNGOUU 

29 CLOSE 昔 1 

さぶ 1099 り UHFEH リロ 0 "DLFTOs " 
*110 MID 人 GT も = リリ に ゅ うこ こり" 

25510 GB(SUE 600GO 

ュ 130 じじ ILUGSE 提 記 

さぶ 1 人 4 けり RETURN 


7。 7 


4070) 
4 の 1 
4 0 で 
人 4 りさ 0 
44 
405O 
4 り 06 
4070) 
408BO 
人 090O 
介 10O) 
4110 
41 ジ 0 
人 41 30 
介 140 
4415 
人 4160O 
4170) 
418C 
人 4 19() 
OOC) 
っ 0)1 ) 
9 で 0 
っ 0O さ (0 
40 
っ 05 ら 0) 
つら 6) 
つり )/() 
30BO 
う 0 の 9 
っ 1 00) 
うつ 1 10) 
コ 1 で O 
1 (0.) 
J1 人 4 
ら 600() 
ら 6010 
ら 60O 
ら 60 さき () 
6040Q 
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FEN " 民 "。 半 の さ Y いこ コッ イ jb" 
INFUT "コー ト * "。 BANGDU 

INFUT "すう 9 ょ う " SBUURYOU 
FIELD 1。 さ 0 AB N ま 。4 人 G Z ま 
BET 拉 1 。BANBUU 

H T NME 1 ま =N 和 ま 

ZAI ドロ =CVB(Z ま ) 一 BUURY ロ U 

IF ZAIEUHSQO BOT 4150 

LSET 7Z ま =MKG ま (ZIED) 

FUT 菩 1 。BANBOU 

CLUSE #1 

FEN "0 。 2。"LFPTOs " 
MIDAGS T =" し ゅ コ こ " 

BDSUB 60QQO 

CLUBSE #2 

RETURN 

PRINT "mA そ " 

FRINT "UP ASY いい りょう "CV( 7 名 ) 
CLOGE 1 

RETURN 

FEN "R" 。 折 1 。" さ Y いこ コイ h" 
FEN "ロロ 。 杜 G。"LFTOsI" 

FRTNT 村人 2 = FRINT # 人 2 

F'RTNT 手 G。 リ コー ト * りり ひん めい すり さ * いこ けり ょ よう" 
FITELD 提 1。 さ O AB N ま 。4 AB Z ま 
BMAX=LOF (1 ) 

FOR BANGUU=1 TO BIHAX 

BET #1』BANGDU 

HT NME 1 =N 

ZAIFE ロ =CVS ( Z ま ) 

FR INT 拉 G。BANBDU。HTNME1 和 ま 。Z 人 TED 
NEXT EANBDU 


CLUSE 昔 1 

CLOSE 揚 

RETURN 

FRTNT 所.。USING"& ks141D 人 ST: 
FRINT 所 。USING "| 韻 振 提 音韻 苫 "BNGOUUi 
FRINT 拉 記 。USING"& ksHTIRNIMET 和 も 


FRINT 所 。USING" 拉 提 福井 井 井 昔 "aSUURYOU。. ZITFEO 
RETURN 
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例題 7ー 変数 名 の 付け か え 
ASC セー プ ・ きれ た プロ グラ ム は デー ター と し て 読み 込む こと が | 
で きる . これ を 用 いて 変数 名 の 付け か え を 自動 的 に 行なう プロ グラ ム 
を 作れ . 





[解答 ] 行 100-230 は 。 プロ グラ ム を 文字 列 型 配列 A$ に 読み 込む プロ 
グラ ム で ある . LTNEB TINPUT の 場合 。 TTF 包 OE と いう 終端 
検出 法 を 使え な い の で ,。 ON ERROR で 終端 を 検出 し て いる . 行 210 
と 220 は ,。 error の 原因 が end of file で ある か 否 か を 調べ て いる (この 
エラ ー 番 号 は Level-3 用 で ある 。 他 機 種 の 場合 は ここ を 書き か える 必要 
が ある が , めん どう な ら ば 2 行 削除 し て も よい ). 該当 変数 名 の 位置 は 関 
数 TNSTR で 調べ , それ より 左側 の 部 分 を 関数 世 FT$ で と り 出 し て 
AT, に 入れ , 右側 の 部 分 を 関数 RTGHT$ で と り 出 し て AR に 入れ , AL 
と 新 変数 名 と AR を つない で 新しい 文 を 作っ て いる . 行 390-440 は , 該当 
文字 列 の 左右 が 英 数 字 以 外 で ある か 否 か の チェ ッ ク で ある 。 


1O RE 詳 給 計 TOOL 1 RSRSS 


<O REM 滋 ES 
SO REM 沙 へ ん すう めい の つけ ガミ 党 
40 REMN 常 藻 


っ 20 RENM SRKREERSRSKESRERRSSKSSESSSS 
60 CLEAR BOOQOO 

ノ 70 DIH 骨 も ( さ OO ) 

On ロロ FEN "0 。 手 G。"LPTOg " 

OR ド REN 打 位 寺 コ ロコ" うと の よみ あこ あゆ SS 
100 INFUT "コテ タイ 中 の い は です ョ F 生 

119 OUFEN "1 。 井 1。F 第 

1<0 FUR 上 し =1 TI 4QG 

139 LINE INFUT 揚 1。 内 も (し ) 

140 FRINT 谷 捉 (し L) 

150 ON ERROUR _ GOTU 2QQ 

160 NEXT L 

170 FRTINT "きき * よう すう オー ロッ ー リ 

18O CLOSE 井 1 

19 の END 


*※ 。 SAVE リフ ァイル 名 『! 。A と いう 指定 で カセ ッ ト ・ テ ー プ また は フ 
ロッ ピー・ デ ィ ス ク に 記録 する こと 。 231 ペ ー ジ 参照 . 
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e10) 
ゃ (りう 
e いり) 
和仁 
で こい) 
ぷら 
* ノ ロロ 
こけ 
e ワ いい 
訪 け 0) 
計 10) 
語る 
ふし) 
さ 人 4 
さ 5Q 
さら 
っ 
ふ コ 0) 
ふゆ アバ) 
40O 
41 
人 4 で 
生き 
作 人 4 
人 4 
6 は 
作 7 
48 
人 49 り 
mr1 
ご 1 (0) 
こし ) 
こう 
うり 介 () 
品 呈 O 
うら 
ブリ 
うけ 
つう ワ ( 
ら 60 
ら 61 
ら 6 で 
ら 6 さ 3 
ら 64 
ら 650() 
ら 66Q) 
ら 6/) 


CCLLUSE 井 1 

1 了 F ERLE SE13O _ THEN FREINTTERL "sgERL END 
IF_ ERR E54 THEN FRIEINT "ERR= "saERR: END 
REM ーーーーーーー nH Of 11 ロロ ーーーーーーー 
N=Lー1 

REM 肖 ERRERRER 近 へ ん すう めい の つけ カ ミ 記 SERSSEESS 
FRTNT 提 。 リ ーーー へ ん すう めい の つけ ガミ ニーーーー リ 
INF'UT りつ けが お ミ る へ ん すう めい 4 條 ! ョ 昌 ま 

内 LENI (H 率 ) 

IF MM=O_ GOTO 呈 40 

INFUT りり あたらしい へ ん すう めい は で リョ 丁 第 
MT=LEN( 二 も) 

FRTIINT 提 で りつ けが おえ る へ ん すう 大 い "日 ま 

FRTNT 埋 で 。) あ た らし い へ ん すう めい リョ 丁 加 

FUR L=1 TO N 

=1 

J= ニ TINGSTR【1I。』 全 第 (L ) 。 昌 も ) 

IF J=O_ 5OUTOU SSO 

し じ ビーロ G じ (ID も (人 も (L) 。 コー1 。 1 ) ) 

IF (昌和 41 ミ デニ LC じ ) AND (LC に ミ =&H5 谷 ) BOTOU SO 
1F (HHSGE= ニ LC)RND (LUCK デー2H39) GOUTOD SOQO 
IF J+H ジ LEN【( 全 も ま (L)) GOTO 450 

RC= コ 6GC (4TD ま も (内 本 (L) 。 ゴ + 由 。 1 ) ) 

IF  (&H41=RC) AND (RCS=&HS 全 ) BUTO SOO 
1F ト (HH3OS=RC)ND (RC =H39) GO0TO SOGO 
FIRTNT 提 記 内 生ま (L) 

台 し ま =LE ビ F 丁 各 ( 介 も (し ) 。 ゴー1 ) 

人 n 民 中 =RTGHT ま (内 も (L) 』。LEMN( 全 も (上 ) ) 一 ゴキ 1 一 由 ) 
向 ま (上 L ) = ニ L も 寺本 中 十 哲 民 畠 

FRTNT 提 全 内 (し L) 

1 = 寺 四 ^ 生 

BOT 36Q 

NEX 十 L 

GUTOU 全 7 ロ 

RE ーーー あたら し い コ 3 口 コ " コロ を いん さ つ ーー 一 

F'RTNT 提 餅 

FOR し =1 TO N 

FRTNT 提 詞 人生 (L) 

NEXT L 

RE 
INFUT リコ マイ 由 め い は リロ 征 

UFEN "ロリ 。 揚 1 "1 "キロ 

FOUR L=1 TH N 

FRTINT 昔 1。 且 も (し) 

NEXT し 

CLOSE 提 1 

CLUSGE 提 2 

END 


192 7 デー ター の 型 , 文字 列 処理 
例題 8ーーーーー イン デン テー ショ ン 





BASIC の プロ グラ ム は ,。 メモリー を 節約 する た め , 普通 , 左 づめ の 
形 で 記憶 され , 表示 され る が , で きれ ば ,。 くり か え し 部 分 に 段落 を 付 
け て ( 右 の ペー ジ の 例 の よう に ) 表示 , 印刷 する 方 が 見 易い この た 
め の プ ログ ラム を 作れ . 





[解答 ] 関数 rNSTR で 綴り FOR と NEBXT を 検出 し , EOR で 2 字 下 
げ て NEB 双 で 2 字 も どす よう に し た の が 以下 の プロ グラ ム で ある 。. 

行 100--180 は , ASCITI セーブ プ さ れ た プロ グラ ム を 配列 A$ に 読み 込む 
プロ グラ ム で ,。 処理 の 主 部 分 ( 行 250 以 後 ) を 明快 に する だめ に この よう 
に し た が , 別 案 と し て は 。 1 行 読み 込ん を で すぐ に 処理 し て プリ ント する , 
と いう 方 法 も 考え られ る (その よう に すれ ば ,。 い くら 長 い プ ログ ラム で 
も 処理 で き て 便利 で ある ). 

行 150 の ON ERROR GOTO は 。, endoffile を 検出 する た め の 
便 法 で .。 プロ グラ ム の 最後 まで 読み 終る と BRROR と いう こと に な っ て 
行 200 に 進む 、 そ の と き 。 行 数 の カウ ンタ ー エ は 一 つの 進ん で いる か ら 。, 行 
240 で 1 を 引い て , 正しい 行 数 を N に 入れ る . 

変数 世 VEBL は OR 一 TN 互 文 F 文 の 入れ 子 の 深 さ ( 何 重 か ) を 示す も 
の で 。 最初 O で 出発 し , 綴り FOR を 見 つけ た ら L 刀 VTL に 1 を 加え , 
NB 又 TF を 見 つけ た ら 1 を 引く . この プロ グラ ム は 構文 チェ ッ ク を し て 
ゅ いない から 。 注釈 や 文字 定数 の 中 の FOR や NEXT に も 反応 し て し まう 
の で 。 少し ぐあい の 悪い こと も ある が ( 右 の ペー ジ の 行 410- て 450 参照), 
REM 文 の 中 と 2 重 引用 符 で 囲ま れ た 部 分 を スキ ッ プ する よう に 改造 す 
れ ば , これ を 避け る こと が で きる (例題 9 参照 ). 

行 300-370 は 行 番号 を 分 離す る た め の プ ログ ラム で ,「 数 字 以 外 の 文字 
が 来る まで は 行 番号 」 と いう 方 式 で 処理 し て いる が 。 別 案 と し て は 「 最 
初 の 空白 を さき さがし, これ より 左 を 行 番号 と みな す 」 と いう 方 法 も 考え ら 
れる . その よう に すれ ば プロ グラ ム は 少し 簡単 に な る . 
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1 (0) 
(し) 
る 
40 
つ () 
ら 6 
ア () 
BC) 
9 
1 00) 
110) 
1 
1 3 
140 
1 
1 6() 
1 7 
18Q 
190) 
200) 
で (0) 
ヶ 人 4 
ご の (0) 
ご ら 6 
e/ 
<8 り 
デ この 0 
0)C) 
さ 310 


さぶ で 0 


ささ 
さ 人 4 
さら 


さら 6 
ュ フ 0 
さき 8BQ 
さ 9O 
介 OC) 
410 
420 
4 さり 
440 
450 
460 
470 
4Q 


REM 塗 pF 上 モア DF1n モ Fr 


CLEAR BOOO 
DIM AA ま (3QQ) 
DPEN " ロ "。 医 G。"LFTO ェ " 
REM コッ ロコ うら の よ あ この 庄 和 
INFUT "フェ イ 員 の いや" ュ ビ 
DPFEN "1"。 間 1。『 1 リキ F 
FUR し =1 TD 4QQ 
LINE INFUT 1。 谷 和 ま (L) 
FRINT 人 *(L) 
DN ERRUR GOTU 2QOQ 
NEXT L 
PR INT "お わり " 
CLUSE 提 1 
END 
CELUGE 1 


REM ーーーーーーー nd ロ f ff11 ーーーーーーー 
N=Lー1 
REM 諸 夫 人 8 1ndentation 悦 弱 康 


Ca 
いい 


2 
1 
CT 


REM ニーー きよ うん こう 二 inT 上 り ーーーー 
FUK L=1 T MN 
M=LEN( 角 も (L) ) 
IF M=O_ GUTOU 470 
FURK IT=1 TO M 
じ ま =MTD ま (合名 (上)。 エ 。1) 
し じ = 人 5 じ ( じ ま ) 
IF (LCKE&HSO) OR(KH3 ワ SLC) GOUTO 3BQO 
NEXT 1 
FRINT りお お が しい" giFRTNT 有名 (し ) 
END 
MADE= エ ー1 
LN=VaL (LEFT( 人 生ま (L)。 MADE ) ) 
H ま =RTGHT ま (人 生ま (L) MaDE ) 
J テ INSTR(B も 。 NEXT" ) 
IF JO _ THEN LEVEL=LEVELー1 
FRINT 提 選 JUSTING" 柱 拉 井 提 拍 " ュ LNi 
FRINT 拉 2。SPC(EKLEVEL+1 ) 』B 和 も 
J=INSTR(E 和 も 。 "FOUR" ) 
IF JO THEN LEVEL=LEVUEL+1 
NEXT L 
EhHD 
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例題 9 変数 名 一 覧 表 
ASCIiI セ ー ブ さ れ だ た プログ ラム を デー ター と し て 読み 。 そ こ に 使わ 
れ て いる 変数 名 の 一 覧 表 を 印刷 する プロ グラ ム を 作れ . 変数 名 は ABC 





順に 並べ ,。 各 変 数 名 が どの 行 で 使わ れ て いる か ,。 と いう こと も 調べ て 
印刷 せよ. 


[解答 ] これ は 簡単 そう で ある が 意外 に 手間 の か か る プロ グラ ム で ある . 
長い の で 少し ずつ 説明 する . 
10 REM 水 肖 8 将 TOOL ミノ HG 水 守 RSS 


<O RE 局 EN 
さ SO REN 央 へ ん す つ めい いち らん ひけ よう 党 
40 ド REM 脱 SS 


っ ONE IRO 

ら 60O_  TTME も = リリ 0005 00 OO“ 

70 CLEAR BQOQGO 

8O DIM 人 生ま (3OQO)。MN ま (100) 。CR 和 ま (100) 。 ソ (100) 
0 OFEN_ "0" 。 村人 2。"LPTO ェ " 

100 REM NSRS コッ ロコ うら の よ あ の この DO 
110 INFUT リコ タイ 中 めい は の リョ ド 事 

1 で OO UPFEN "1 。 提 1』F 累 

1 ぶ 30 FOUR ドド =1 T ロ 4QQ 

140 LINE INFUT 坦 1。 朋 も ま ( ド に ) 

150_ FRINT 生生 ( 記 ) 

160 ON _ ERROR GOTO 2S10 

170_ NEXT に 

18BO_ FRINT "お 9『 

190 CLUSE 拉 1 

eO0O END 

e1O CLOSE 埋 1 


ここ まで は 。 前 問 (例題 7 , 8 ) と 同じ で ある . プロ グラ ム の 終り まで 
読む と , ERROR と いう こと に な っ て 。 行 210 に 進む (実際 に は エラ ー で 
な く て ,。 これ が 正常 の パス で ある ). 

配 名 VN$ は 変数 名 (Variable name) の 格納 場所 ,。 OR$ は 参照 場所 

(cross reference) の 格納 場所 (格納 方 法 は 本 書 独自 の 連接 法 に よる . 
詳細 後述 )。 V は 予約 語 を 分 離す る た め の 目 印 を 記憶 する 場所 で ある . 
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< の 0 NKKー 1 


260 REM ーーー まき "まう ん ご" 生ん 9 ーーー 
270 VN ま (1) ="REM" 
2BQ JMAX=1 


<70 FUR L=1 TU N 

S900 FRTINT 台 生 ( し ) 

10 =LEN( 代 本 (し) ) 

この エ F MO_ GUTO 7Z10 

SseO FUR =1 TB HL 

さり じ ま =MTD 生 ( 朋 本 (し) 。T。1) 

さら 0 し じ = 人 BC( じ まま ) 

さら 69 TIF (LCK&H3O) OR (IHS ワウ SLC) ロ UTO0 490 


ふ /70_ NEXT 1 
SBO_ FRINT お お し LMUP saFRTNT 月 和 ま (L) 
こ 7D END 


行 290 の FOR 文 は 。 プ ログ ラム の 第 1 行か ら 第 行 (最後 の 行 ) まで 
に つい て の くり か え し を 制御 する も の で , 対応 する NEXT 文 は , 行 710 
に ある . 

行 300 で , これ か ら 処 理 す る 文 の 長 さ (文字 数 ) を 変数 M に 入れ て い 
る 。 これ は 今後 た び た び 用 いら れる . 

行 330-<390 は 行 番号 を 分 離す る プロ グラ ム で ,。 文 の 左 か ら 1 字 ず つ 調 
べ て いっ て 。 数 字 以 外 の 文字 が 出 て きた ら 行 300 に 進む . も し も 文 の 最後 
まで 全部 が 数 字 ば か り だ と し た ら , それ は お か し い の で , 行 380 で エ 
ラー・ メ ッ セ ー ジ を 出し て 停止 する . 


4400 MDE= テ エー1 

4410 KaR 人 モエ +1 

4 ダ SO LN も =LEFT 生 ( 介 和 ま (L) 。 MaDE ) 
430 LN=VL (LN まま) 

440O 日 = モ ド 1GHT 事 ( 全 ま ( し し) 。 MMーMaDE ) 


行 400 に 来 た と き 。 ポ イン ターTr は , 行 番号 と 文 の 本 体 の 間 の 空白 の 位 
赴 に ある . ここ で 文 を 二 つ に 分 け , 
第 ] 字 ー- 第 バー 1 字 目 (変数 名 ) を LN$ に 入れ る . 
第 7 十 1 字 目 以降 ( 文 本 体 ) を B$ に 入れ る 。. 


変数 名 空白 文 の 本 体 
ト - LN$ っ | トーーーーーーーーーーー- B$ ーーーーーーー 一 ーーー 


196 7 デー ター の 型 , 文字 列 処 理 


45O MM ま = リ リ 

460 SF= ロ z SQ=1 

47Q FDR TI=FEARA TO NM 

48Q IF IEB AND C="YU BOTO 7Q0Q 

490 C=MTD も (人 も (L) 。 1。 1 ) 

5OO IF C ま =CHR$(34H22) THEN SMAP SF。SGQ 
510 LC=ASC(C*) 

52O IF (H41=LE) AND (LC = 色 H5A) BOTD 69Q 
5 さ O IF (&HSO<=LC) AND (LC =&H さ 9) BOT 65Q 
540 IF LEN(MM ま )=O BUTO 67Q 

5O IF ASC(M ま ) HH41 BOTD 67Q 

60 IF MM も ="REM" BUTH 710 : REM の よ あ と し 
57O IF SFP=1 GTO 679 

SBO FOR =1 TO JMAX 

9 IF MM 名 =VN$ も (J) BUDTO 660 

6OQ NEXT J 

61D JMAX=JMAX+1 

62O VN も (JMAX ) = も 

6 さ 0 CR ま (JMAX) =LN ま + す リリ 

640 MM 各 = リ リ 

65O BOTD 7QQ 

660 CR$(J) =CR 多 ( ゴ )+LN 生 すり リ 

ら 67 MM ま ="" 

68Q BOTO 7QQ 

6 生玉 事 キ じ 

7oO_ NEXT 1 

71Q NEXT L 


変数 W$ は , 変数 名 を 組み 立て る た め の 作 業 場所 で , 最初 は 空 に し て お 
いて 。 英 数 字 が 続い て いる 間 は (その た め の チ ェ ッ ク が 行 520--530 で あ 
る )W$ に 文字 を つない で ゆく ( 行 690). 英 数 字 以 外 の 文字 が 来る と 行 540 
に 進み 。 先頭 が 英字 で ある か どう か を 調べ る ( 行 550) な どの 手続 き を 経 
て , 行 580 に 進む . 行 580--600 は , その 変数 名 が 既に 登録 きれ て いる か ( 変 
数 名 一 覧 表 に 入っ て いる か ) 否 か の チェ ッ ク で ある . 本 格 的 な 実用 プロ 
グラ ム を 作る の で あれ ば ,。 ここ で ハッ シン グ と か 2 分 法 と いっ た 技法 を 
使う の で ある が 。 この プロ グラ ム 例 で は 簡単 に , 変数 名 一 覧 表 を 上 か ら 
サー チ し て いる . 未 登録 と いう こと が わか っ た ら 変 数 名 一 覧 表 VN$ に 
登録 する . また (登録 済み で も 新規 で も ) 参照 箇所 一 覧 表 CR$ に , 当該 
行 の 行 番号 を 連接 (文字 列 の 後に つなぐ こと ) する . BASIC の 文字 列 変 
数 は 可変 長 な の で , こう いう 場合 。 いつでも 必要 な だ け の 場所 を 確保 で 
き て 便利 で ある . 
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以上 が 処理 の 主要 部 で ある が 。 それ だ け だ と 

注 秋 (REM 文 の 中 味 ) が 変数 名 と し て 扱わ れ て し まう 

文字 定数 (2 重 引用 符 で 囲ま れ た 部 分 ) に つい て も 同様 
と いう 難点 が ある の で ,。 そこ だ け は 読み と ば す 必 要 が ある . その た め の 
細工 が 。 行 460( 2 重 引用 符 の 外 に ある か 内 に ある か を 示す フラ ッ グ と し 
て 8SP,SQ を 用 いて いる ), 行 480 (行頭 の ' 印 は REM の 省略 形 だ か 
ら )。 行 500 (2 重 引用 符 の ASCII コー ド は 22 番 )。 行 560。 行 570 で ある . 


ァ cO_ BUSUEB 93 

730 GUGUB 1 で の 0 

740 FOR J=RM+1 TO JMAX 

7 ら 0 IF リ (J)=0 BOTO 770 

760 FRTINT VMN も (JJ) 0 g "リョ CR まま (J) 
770_ NEXT J 

780_ INFUT リコ 9 ロート し まし ょ よう ガ で リエ 
/⑦0 エ F 1 まま =" サ "NO BUTO 910 

BOO FRTNT で 疫 RESROU ュ エ F ま 1 SERESRSSS" 
B10 FRINT 所 。 リ TIME= リ "リョ TIEME ま 

BEO FOURKN し =1 TH N 

B3O FRTINT で 谷 生 (し ) 

49 NEXT L 

BSO_ FRTINT 提 2 

860 FRTINT 拉 で EE 拉 寺 雪 へ ん すう めい の いち らん ひよ う 水 馬 迷 
B7O FOR J=RMM+1 TH _ JMAX 

8BO IF V(J)=O GOUTOU 900 

B9O0 FRINT 持 選 。VMN ま (d) 0 リョ CR も ( す ) 
9 の OO NEXT J 

910 CLOSE 幸人 

で 0 ENDD 


行 930 一 は ABC 順に 整列 する た め の プ ログ ラム 。 行 1290< は 予約 語 
(TE。FOR な ど と いっ た だ 綴り) に 目印 を 付け る (V の 値 を 1 に する ) 
プロ グラ ム で ある . これ ら の 処理 を 行なっ だ た あと, ディスプレイ,。 指示 
が あれ ば プリ ンタ ー に ,。 ソー スリ スト と 結果 (変数 名 一 覧 表 ) を 出力 す 
る . 


プ ュ 0 RENM 涼 涼 炒 氷 玉水 水玉 素 ボボ ボボ ボボ 
740 RENM 水 氷 氷 氷 氷 GURTING ポ 氷 氷 ※ 
アコ (OO REM ポ ※ 氷 ( 呈 己 D ちら O ロ F ) ※※※\ 
ヲ プ 60 RE ト NM 炒 水 氷水 氷 氷 水 水 氷水 ボ 水 求 ※ 水 水 ※※※ 
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P79 FOR LE 全 TO JPMAX 

8 = し 

9 ユエ = ミ [NT (ロロ / 全 ) 

10 り けり IF VMN も (1) =VMN ま も (J) ロロ UTU 1040 

1010 SMAF_ VN も (T) 。MN ま も (JJ) SMF _ CR を (T) 。 CR 第 (J) 
1 で = ィ 

10 ふ 30 jiF dE1 和 THEN 990 

1040 り 0 NEXT L 

10GO FOUR DE=JMAX T 人 STEF -1 

1060 征 人 THT ま VMN ま (1) 』 NTIGEL. も = じ R ま (1 ) 

1097 ロ ロ エモ テ 1 

Lt08HO 1 =※[ 

1 の (9 人 王 全 表 エ 二 1 

1100 IF J1=MaDE GUTOU 1150 

1110 IF J1EMaDE ロ OTOU 1190 

11 で OD 1TF VN まま (J1) EVMN も (2 お ) GTO 11SO 

113O エロ 0 り =J 

1140 BUTHU 116Q 

1150O 1O0=J1 

1160 VN ま も ( エ T)= ミ VN も (10O0) 』 CR ま ( エ )= テ CR 生 (TO) 

1170 エ =[O 

1180 GOUTOU 10BO 

119O VN も (TO) =VN ま (MDE ) 』 CR 生ま (110) =CR ま (MADE ) 
12COO ユエ =10 

1 で 10 INT( エ / 人 で ) 

ee0O TF VN も ( ド ) FUN も ( エ ) BUTOU 1S ら 60 

1 で 30 SMAP_ VN も ま (T) VN も ま (E) 』 GMAF CR も (T) 。CR 事 ( ド ) 
1 で 40 エモ =E 

1S5O 1F JFE1 THEN 1E10 

1“ ど 60 VN$ も (MADE ) =TRTIHIEI ま 』 CR も (MADE ) NTEGEL 和 ま 
1 で ア 70_ NEXT MDE 

12BO_ RIEETURN 

1 で 9 REIM4M 一 ーーーーーー 星 ら 己 ビ ソ 己 WOFd ら ーーーーーーー 
1300 RERD RMM 和 ま 

1 ほ 310 FOUR J=1 TO JHAX 

13 ダ で 0 TF UN まま (JR も THEN ぴ ( け )=1 』 GOUTO 140G 
1 さぶ 40 1TF VN も (J) =RM も BUTOU 1 さき 7 

1340 READ RM 生 

1 ふら 0 IF RM も = リポ り THEN ERA g GOTO 14 人 SO 
1360 GOTO _ 13 な 0 

1370 V(J)= テ 0 

1.3 コ BOD RERD RM まま 

1.390 エ TF RM も = リリ THEN ER 人 = ゴ +1 』 GOUTOU 14 人 SO 
1400_ NEXT J 

1410 RETURN 

14<O FOUR J=EKARQA TO JMAX 

143CO ソ (J) =1 

1440 NEXT J 

145QO_RETURN 


②③ 図形 表示 


6.」 機能 紹 介 


図形 を 表示 する に は , 最低 限 。 次 の こと が で きれ ば よい . 

画面 を 消す . 

指定 され た 位置 に 点 (ドッ ト ) を 表示 する . 
これ さえ で きれ ば , あと は 工夫 し だ いで どん な 図形 で も 描け る は ず で あ 
る が, 

指定 され た 2 点 を 直線 で 結ぶ 

指定 され だ た 点 を 中 心 と し , 指定 され た 半径 で 円 を 描く 

指定 され た 位置 に , 指定 され た 文字 を 書く 
な どの 機能 が あれ ば , さら に 便利 で あろ う . また (カラ ー・ グ ラフ ィ ッ 
ク ・ デ ィ ス プレ イ や プリ ンタ ー を 持っ て いれ ば ぱ ) 

色 の 指定 

プリ ンタ ー へ の 出力 
な ども で きる よう に する 必要 が ある . 
現在 市 販 さ れ て いる マイ コン の 大 部 分 の 機種 は ,。 上 記 の 機能 (の 全部 
また は 一 部 ) を 持っ て お ぉ お り , BASIC の 命令 の 形 で 書く こと が で きる . 書 
き 方 の 詳し い 規 則 は 機種 に よっ て 少し ずつ 異な る が 。 基 本 を マス ター し 
て あれ ば 個々 の 機種 へ の 対応 は 比較 的 科 単 に で きる の で , 本 草 で は , 代 
表 的 な 二 , 三 の 機種 を 例 に と っ て 図形 表示 関係 の 文法 を 説明 する . 実際 
に プロ グラ ム に 書く と き の 命 令 の 順序 は 上 記 の と お り で な く ,。 機種 に 
よっ て は 最初 に 図形 表示 の た め の 若 干 の 手続 き を 必要 と する こと が ある 
が 。 そ れ は 8.9 飾 で まとめ て 説明 する こと に し て まず は 上 記 の 順に 基本 
事項 を 説明 する . 
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これ は , 普通 , 
OL8S 


と 書け ば よい (OLS は clear screen の 意味 で ある )。 この 文 を 実行 す 
る と ,。 画面 に 表示 され て いる 文字 や 図形 は すべ て 消去 され , カー ソル 
は 画面 の 左上 隅 (ホー ム ・ ポ ジ シ ョ ン ) に 移る . 





[例外 ] 下記 の 機種 に は CLS 文 が な い の で , それ ぞ れ , 次 の よう に 書く . 
MZ-80B/C/K の 場合 * PRINTWICLRI' 
キー ボー ド の IOLR| キ ー の こと . 」 
間 
PC-8001 の 場合 PRTINT CHR$(12) 
M-23 の 場合 PRTNT OLEAR 
な お , ASCIHI コー ド の 12 番 (16 進 法 の 0C 番 ) は 画面 消去 を 表す の で , 
PRTNT CHR$(12) 
まだ は 
PRTNT CHR$( &HO ) 
と 書け ば , どの 機種 で も (関数 CHR$ を 使え る な ら ば ) 共通 に , 画面 消去 を 行 
な うこ と が で きる . 


点 の 消去 画面 全体 を 消さ きず に 特定 の 点 だ け を 消し た い 場 合 は 
PRESET ( 横 座 標 , 終 座 標 ) 


(MZ-80B/C/K の 場合 は RESEm 横 座 標 。 縦 座標 ) を 用 いる . 座 
標 の 指定 方 法 は 次 節 で 説明 する . な お 。 PRE8S 世 BT の で き な い 機種 で 
は 背景 と 同じ 色 を PS8〒 す る こと で 代用 する . 





* これ は SP-5030 な どの 場合 の 話 。 HuBASIC な ら ば OLS が 使え る 。 
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8.3 点 の 表 示 


画面 上 の 指定 位置 に 点 を 表示 する に は 。 普通, 次 の よう に 書け ば よ 


し ゝ 。 


PS ( 横 座 標 , 縦 座標 ) 





「 例 外 ] Level-3 の 場合 PSEBT ( 横 座 標 , 縦 座標 , 色 番 号 ) 
MMZ-80B/C/K の 場合 SE 横 座 標 , 縦 座標 
MM-23 の 場合 DTSPLAY 
画面 座標 系 これ は 普通 。 


左上 隅 が 原点 (0, 0) 


(0, 0) え 

横 座 標 は 右向き が 正 

終 座 標 は 下向き が 正 
で 右端 , 下端 の 座標 は 機種 に 
よっ て 異な る が 。 主要 機種 に 
つい て は 下記 の よう に な っ て 
いる 。 

機種 横 座標 最大 値 縦 座標 最 大 値 備 考 

IMZ-80C/K 79 49 
MZ-80B 319 199 V-KRAM 使用 時 
PC-6001 255 191 
PC-8001 159 99 
Basic Master Jr. 255 191 
Level-3 
Micro-8 
IM-23 639 199 
PASOPIA 


が -800( モ デル 20) 

[例外 ] 以上 は いずれ も 絶対 座標 系 で あり , 座標 変換 (実際 の 寸法 を 上 記 の 画 
面 に お さめ る た め の 縮 尺 な ど ) は ユー ザー が 行なう の で ある が 。 PC-8801 の よ 
う に 座標 変換 を 自動 的 に 行なっ て くれ る 機種 も ある . 
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8.4 直線 を 引く 


直線 を 引く に は 。 その 両端 点 の 座標 を 指定 し て 。 普通 , 
LINE ( 横 座 標 , 縦 座標 ) 一 ( 横 座 標 , 縦 座標 ) ,P8 呈 呈 
と 書く *. 第 1 の ( ) 内 は 始点 , 第 2 の ( ) は 終点 の 座標 で ある . な 


お 。 前 の 線 分 の 終点 が 次 の 線 分 の 始点 と な る 場合 は 始点 を 省略 し て 
LINE 一 ( 横 座 標 , 縦 座標 ) ,PSE 呈 
と 書い て よい . 





( 例 ) LTN 到 (20.80) 一 (100,50 ) , PSE〒 
1TN 選 一 (130, 50 ) , PSET 





[備考 ] LINEB 文 の 未 尾 に は , 後述 の よう に , 色 の 指定 その 他 各 種 の オ 
プシ ョ ン を 書く こと が で きる 。 それ ら の オプ ジョ ン は 「 書 いて も 書か な 
く て も よい 」 と いう 規則 に な っ て いる の が 普通 で ある が , Level-3 の 場合 
は 色 の 指定 を 省略 で き な い の で 注意 きれ た い . 


* 中 央 の 一 印 は 。 意味 ヒ とし て は ハイ フン で ある が 。 キー ボー ド に は ハイ フ 
ン に 当たる 字 が な い の で , 負 号 (マイ ナス ) を 用 いる 。. 
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LLIN 世 文 を 使用 で き な い 機種 の 場合 ] LTN 選 文 を 使用 で き な い 場合 
は , 端点 の 座標 を 補間 し て 直線 上 の 点 の 座標 を 求め , 8.3 人 節 で 述べ た 方法 
で 表示 し て や れ ば よい . その よう な プロ グラ ム の 一 例 と し て ,MZ-80C/ 
K の た め に HuBASIC で 書い だ た サブ ルー チン を 以下 に 示す 。. 

8599 LRBEL "SEHN" 

85109 DX=XJ-XI 

8529 DY=vVJ-V1 

8539 IF HBSXDX)<HBS(Dy) BOTO "THEN" 

8549 REM 。,。IDX>DVI "テイ 。 。 。 

8559 FOR XX=XI TO XJ STEP SGNXD%〉 

8569 YV=yI+(XX-XI)*DY/D% 

8579 PSET (XX,Yy) 

8589 NEXT XX 

8599 RETURN 

8699 REM 。,,IDX<DVI J アイ 

8619 LHBEL "THEN" 

8629 FOR Yy=yI TO VJ STEP SBNCDV〉 

8639 XX=XT+C(VY-V】)*DX/DV 

8649 PSET (XX,YY) 

865@ NEXT Vv 

8669 RETURN 


[使用 法 ] 始点 の 画面 座標 を 丸 T, Y+ に 入れ , 終点 の 画面 座標 を メ , 
Y ゴ に 入れ て , 
GOSUB "SERN" 

に より 。 この プロ グラ ム を 呼び 出す . 
[解説 ] 始点 と 終点 の 間 の 横 座 標 の 差 DXX と 縦 座標 の 差 DY を 比較 し 

ID ! 生 |DY| な ら ば 文 を 独立 変数 と し て Y を 補間 

ID 又 | く |DY| な ら ば Y を 独立 変数 と し て 文 を 補間 
し て いる . 補間 の 計算 式 は 6. 人 節 で 説明 し た と お り で ある . 行 8550 お よび 
8620 の FOR 文 の 増分 欄 に 書い て ある SG は 3.7 飾 で 説明 し た 組込み 関 
数 の 一 つ で 。 引 数 の 符号 に よっ て 十 1 また は 一 1 に な る . 点 の 表示 に , 
MZ-80 の SP-5030 な ら S8 到 〒 と 書く わけ で ある が , HuBASIC で は 他 機 
と 同様 に P8ET で ある . 
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8.5 四角 を 描く 


TiTN 豆 文 に は いろ いろ な オプ ショ ン を 付け られ る . まず 。 基本 形 
LIN ( 横 座 標 , 縦 座標 ) 一 ( 横 座 標 , 終 座標 ) ,PSB 呈 
の 次 に 
> 色 番 号 
を 書く こと に より , 線 の 色 を 指定 で きる ( 色 番 号 一 8.10 節 参照 ). また そ 
の 次 に 
> 
を 付け る と, 普通 の LTN 選 文 の よう な 直線 は 引か ず 。 か わり に , 


TS 


L TIN 世 文 で 指定 
され た 横 座 標 値 


表示 され る 長方形 


TIRN 世 文 で 指定 され た 縦 座標 値 
の よう な 長方形 が 表示 さき れる. [BB」 の か わり に 
> BE 
と する と 。 上 記 の 四角 の 中 が ぬり つぶ され る 。. 





まだ た 。 PS 包 T の か わり に PRESET と 書く と 。 直線 また は 四角 が 消去 
され る . 


8.6 円 を 描 < 205 
CTROL 互 文 は 使用 
- できない 機種 が ある 
円 また は 円 弧 を 描く に は OTROLB 文 を 用 いれ ば 1 命令 で 書け る . た 
だ し , これ を 使用 で きる 機種 は 限ら れ て いる . 使用 で きる 機種 は 
IMicro-8 ゲー-800 
VIC-1001 
な ど , 書き 方 は 
GrROLE( 中 心 の 横 座標 , 中 心 の 縦 座 標 ) , 半径 。 色 番号 
[CIRCLE 文代 行 プ ログ ラム ] OCTIROL 世 文 を 使用 で き な い 機種 で は , 
座標 を 計算 し て PSRF で 打点 する こと に より OTREROLB 文 の 代行 を す 
る プロ グラ ム を 作っ て お く と よい . 下記 は その 一 例 で ある . 


8.6 円 を 描 < 


BOO RE 
6 ヨ Q1 REM 朱 圭 コ 中 一 キモ -。 リリ ミ ん リ 3 
68QO2 REM 楽 CTRCLE(XQO、YO) 。 民 。C そう と う 有 
68Q さ REM 楽 (MB-6 ヨ 9O よう ) 3 
6804 RE AS 
68Q055 RR=R*R 

6806 FUR X1=O TU Q。707*R 

6 ヨ 07 YTG=SDR(RR-X1*X1 ) 

68Q ヨ Y1=Y1S*O.45 

6 ヨ 09 XS=Y15 : YSG=O、4 コ X 1 

68 ヨ 1 PSET(XQ-X1 。YQ-Y1 。 ビ ) 

6BBS PSET(XQ-X1 。YO+Y1 。 ビ ) 

688 さ PSET(XQ+X1 。YQ-Y1 。C) 

6BB4 FPSET(XQ+X1 。YO+Y1 。 じ ) 

6BB5 FPSET(XQ-XG。YOー-YS。 ビ ) 

68 ヨ 6 FPSET(XQO-XG。YO+YS。 ビ ) 

6 ヨ B7 FPSET(XQ+XG。YOーY2。C) 

6 ヨ ヨ B PSET (XO+XG。YO+YS。 ビ ) 

68 ヨ 9 NEXT X1 

6 ヨ 90 RETURN 
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8.7 文字 の 表示 


画面 上 に 文字 を 表示 する 方 法 は 二 通 りあ る . 
キャ ラク ター・ デ ィ ス プレ イ の 方 式 で 表示 
| レッ ッッ アリ スン レ ィ の カー 
前 者 は PRT エ NT 文 に よる 普通 の 文字 出力 方 式 で ある . それ に 対し 後者 は 
文字 を ドッ ト ・ パ ター シン と し て (図形 の 一 種 と し て ) 出力 する 方 式 で あ 
り ,。 命令 と し て は PS 文 や LTNEB 文 を 用 いて も よい が 。 機種 に よっ 
て は , 更に 便利 な 命令 、 SYMBOL. 文 や PUT 文 を 用 いる こと が で きる 。. 
じつは 。 パソ コン の 表示 機構 は , 次 の 図 に 示す よう に , キャ ラク ター・ 
ディ スプ レイ の 系 統 と グラ フィ ッ ク ・ デ ィ ス プレ イ の 系 統 の 二本立て に 
な っ て いる . 前 記 の よう な 区 別 が 生ずる の は その た めで ある . 
















キャ ラク ター・ 
ディ スプ レイ 用 


PR INT 文 の メモ リー 





文字 コー ド の 形 で 記憶 


PS8 選 呈 文 な ど 


ドッ ト ・ パ ター ン の 形 で 記憶 


プロ グラ ム を 書く 上 で の 大 き な 差 違 は , 前 者 の 方 式 (PRTNT 文 に よ 
る 出力 ) の 場合 に は , 画面 上 の 位置 の 指定 に , 8. 3 人 節 で 述べ た 画面 座標 
を 用 いる こと が で きず 

上 か ら 何 行 目 の 。 左 か ら 何 宇目 
と いう 形 で 書か な けれ ば な ら な い (その た め 。 二 つの 座標 を 併用 する こ 
と に な る ) と いう こと で ある 。 
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キャ ラク ター・ デ ィ ス プレ イ 方 式 に よる 表示 法 これ は 

1 ) 表示 し た い 位置 * に カー ソル を 移動 きせ る 

2) PRTIKRNT 文 で 出力 する 
と いう 手順 で 行なう . 上 記 1) は LOOA 呈 理 文 で 行なう の が 便利 で ある . 


LOCATE 文 これ は 次 の 形 で 書く . 
LOOAT 選 左 か ら 何 字 目 , 上 か ら 何 字 目 


(た だ し 左端 。 上 端 の 位置 を 「 0 字 目 ] と し て 数 え を え る). これ を 実行 す 
る と , カー ソル は 指定 位置 に 移動 する . 





( 例 ) LOOAT 5,10 
PRTNT "A" 
文字 座標 系 _ 上 記 の 方 式 で 指定 し た と き の 画 面 上 の 位置 は 
1 行 に 何 文 字 表示 する か 
1 画面 に 何 行 表示 する か 
に よっ て 変っ て くる . これ ら は 
後述 の WIDTH 文 に よっ て 何 
種類 か 選べ る が 。 標準 的 な の は 
横 80 字 縦 25 行 
と いう 表示 方 式 で 。 その 場合 の 
LOOA〒 文 の 指定 と 画面 上 の 位置 
の 対応 (いわ ば 文字 座標 系 ) は 上 図 の よう に な る . この 目盛 と , 
横 方 向 640 ド ッ ト 縦 方 向 200 ド ッ ト 
の 機種 の グラ フィ ッ ク 座 標 系 の 関係 は , 横 方 向 。 縦 方 向 と も , ちょ うど 
1 対 8 に な る (これ は 文字 を 8X8 ド ッ ト で 表示 し て いる た めで ある )、. 
し た が っ て ,。 文字 座標 の 値 を 8 倍 す むれ ば, その 文字 の 左上 隅 の ドッ ト の 
画面 座標 に な る . 逆 に , グラ フィ ッ ク 座 標 を 8 で 割っ て 端数 を 切り 捨て 
れ ば 文字 座標 に な る . 





ま 正確 に いえ ば | 文字 列 の 先頭 の 文字 の 表示 位置 」 
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グラ フィ ッ ク ・ デ ィ ス プレ イ 方 式 に よる 表示 法 前 ペー ジ の 方 法 は , 
どの 機種 で も 使え て , 簡単 で ,。 速い な ど 利 点 が ある が , その か わり , 
座標 系 が 二本立て に な っ て 不便 で あり , 文字 の 大 き さ を 変え られ な い , 
と いっ た 難点 も ある . それ を 解決 する に は グラ フィ ッ ク ・ デ ィ ス プレ イ 
方 式 で 出力 すれ ば よい . 

Micro-8 の SYMBOL 文 は その た め の 命 令 で ある . これ は 次 の よう に 
書く . 


SYMBOL  ( 横 座標 , 縦 座標 ) , 文字 列 式 。 横 倍率 , 縦 倍率 


この 後に 次 の よう な オプ ショ ン を 付記 し て も よい 。 
> 所 番号 。 文字 の 向き 





ここ で 横 座 標 。 縦 座標 は 画面 座標 (すなわち P8 選 F 文 や LTN 到 文 と 同 
じ 座 標 系 ) で , 先頭 の 文字 (正確 に いえ ば その 文字 わく ) の 左上 隅 の 位 
言 を 指定 する 。 文字 列 式 と いう の は , 一 - 般 に は 文字 列 型 の 式 (た と えば 
A$ 十 "YEN') の こと で ある が , 普通 は 単に 文字 列 型 の 変数 名 また は 文 
字 型 定数 (すなわち , 文字 列 を 2 重 引用 符 で 囲ん だ も の ) と 思っ て よい . 
横 倍率 と 縦 倍 率 は 文字 の 大 き さ を 指定 する も の で , 8X メ 8 ドット (1 行 
80 字 で 表示 し た と き の 大 きる さ ) を 基本 単位 と し て , その 何 倍 に 拡大 する 
か を 書く . 拡大 文字 は タイ トル の 表示 な ど に 使用 で きる 。 文字 の 向き は 


1 2 3 4 
上 向き 左向き 下向き 右向き 
( 例 ) A マ Y > 


て 指定 する . この よう な 機能 は 座標 軸 の 目盛 りや 説明 を 描く の に 便利 で 
ある 。 
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8.8 GETe@ 文 と PUT@ 文 凍 凍 結 間 
機種 が ある . 

文字 や 図形 を 表示 する 機能 の 一 つと し て , 

文字 や 図形 の ドッ ト ・ パ ター ン を 配列 に 入れ て お く 

それ を 画面 上 の 指定 位置 に 表示 させ る 
と いう こと が 簡単 に で きる と 便利 で あろ う . 用 途 と し て は , た と えば 

漢字 を 表示 する 

回 路 図 の 部 品 記号 を 表示 する 

会 社 や 製品 の シン ボル ・ マ ー ク を 表示 する 

模様 を 描く 

画面 を ディ スク や テー プ に 入れ て 保存 する 
な ど が 考え られ る . これ を 行なう の が G 到 T@ 文 と PUT@ 文 で ある 。 そ 
の 使用 法 に は 各種 の バリ エー ショ ン が ある の で 詳し い 説 明 は 省略 する が , 
上 記 の よう な 目的 の 場合 に は 次 の よう に 書け ば よい *. 


GET@ (左端 , 上端) ,( 右 端 , 下端 ) 。 配列 名 ,G 





ここ で て 左端, 上端, 右端 。 下端 は 。 ドッ ト を 読み と る 区 域 。 ある い は 表 
示す る 区 域 で , 画面 座標 ( 横 座標 と 縦 座標 ) で 指定 する . 配列 の 型 に つ 
ゅ いて は 別に 制限 は な く , 
要する に 指定 し た 区 域 の ドッ ト 数 , すなわち 

( 石 端 一 左端 十 1) 

X (下端 一 上 端 二 1) 
を 収容 で きる だ け の ビッ ト 数 
を 収容 で きれ ば よい (実際 の 
扱い は バイ ト 単 位 だ か ら 上 記 
の 値 を 8 で 割り , 端数 を 切り 
上 げ ば る ). 





* 。 ここ の 説明 は IMicro-8 用 
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[GET @ 文 を 代行 する ブ プログラム] GEBT@ 文 や PUT@ 文 を 使用 で き 
な い 機 種 は か な り 多 い の で , その 利用 者 の た め に , これ ら の 文 の 機能 を 
代行 する プロ グラ ム を 作っ て みた . 

まず ,。 GE 包 mT@ で ある が ,。 GOSUB7000 で 下記 の サブ ルー チン を 呼 
び 出 す と , 画面 座標 の 

左端 文 1 右端 文 る 上 端 Y1 下端 る 
内 の 区 域 の ドッ ト ・ パ ター ン が 。 文字 列 型 変数 MMAGE$ に 読み 込ま れ 
る . 格納 先 を 文字 列 変数 と し た の は , 

文字 列 変数 な ら ば 可変 長 な の で 使い 易い 

代入 や ディ スク 入出 力 な ど が 簡単 

必要 な ら ば 配列 の 形 で 扱う こと も で きる (224 ペ ー ジ の 例 参 照 ) な 
どの 理由 に よ る. 


ア 7oO00 | 吉 EESEEEREEREESERERRIEREESIREEHREEEESE 
71O " 葉 サコ "中 一 キー "GET " 詳 
アー 
ZOS3O | 詳 。 を も を し" 拓 つ くん すう TMRGE も に お くめ け 守る 恋 
ア 749" 須 (MEB- ら 6890 よ う ) 迫 
7oOS50 | 胃 EEEERERERRERREREESRRRRERERRRRSRIS 
7060_ BUHSUE 7 ら ワ 90 』 REM ヒロ ロモ ュ 8 ロ 七 品 せ コ で い 
ア 070 IMAGE も = リリ 

ア 0BO ドド "ニア 

7090O BYTE=iQ 

ア 7100 FOUR XX1 TO XXE 

ア 110 FOUR YEY1 TO Y 交 

71 で OO DUTEEOUTNT(X。Y) 

ア 7130 TF DOUT=O GUTOU 7Z15QO 

7140 BYTE=EBYTE OR ETIT(P) 

ア 7150 1F PEO _ THEN FFー1 5 BOJO ZZ190 

ア 160 ドー ア 

ア 170 TMRGE ま =1MRGE ま すじ CHR も (BYTE ) 

7180 RYTEmO 

7190 NEXT Y 

アダ OOD _ NEXT ※% 

アァ ゼ 10 THRGE 和 TMRGDE ま +CHR も も (BYTE ) 

ZSsO RETLIRN 





[解説 ] サブ ルー チン 7590 は 右 の ペー ジ に あり 。 1 バイ ト の 中 の 右 か ら 
番目 の ビッ ト の み 1,。 他 は 0, と いう 定数 を 作り 配列 BT に 格納 し て 
いる 。 行 7120 の 関数 P や OTNT( 又 , Y ) は ,。 画面 座標 双 。 マ の 点 に ドッ ト 
が あれ ば ー1,。 ドッ ト が な けれ ば O の 値 を と る 組込み 関数 で ある . 
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[PUT @ 文 を 代行 する プロ グラ ム ] これ は 左記 の プロ グラ ム で 文字 
列 変数 MAGE$ に 記憶 きせ た ドッ ト ・ パ ター ン を 画面 上 に 再 表示 する 
プロ グラ ム で 。 表示 区 域 

左端 文 1 右端 文 2 上 端 Y1 下端 Y2 
お よび 色 番 号 C を 指定 する こと が な できる. 行 7380 か ら 7430 ま で は ,。 文字 
列 変数 の 先頭 か ら 1 バイ ト ず つと り 出 し , それ を ドッ ト ・ パ ター ン と し 
て 扱う た め の 細 工 , また 行 7460 は その 右 か ら ア 番目 の ビッ ト だ け を と り 
出す た め の 細 工 で あり , 機械 語 で 処理 すれ ば 簡単 で も ある が BASIC で も 
一 応 こ ん な ぐあい に し て 書け る わけ で ある 。. 


7 ェ OO "RNNRRNRSRRRNRRRRRNSS 
フミ 10 : 藻 サコ 由 一 キッ "FUT" 
7320 * 千 TMAGE も の ヒ * mk・iY ロー 
7 ささ 3QO " 朋 (XX1。Y1)-(XS。Y2) に YY T ネ コ VUT 諾 
フミ 4Q * 藻 (ME-6890 よ う ) 
7 さ 5O 「 半 半 NNRRRRRRRRNRSRRRRNRRRRRNRRRSRSSSRNS 


フ さ 6QO IF =QO THEN ビ = ア 

ア さ 70 GUSUEB 759O : REM COn ら tan ロ もら せっ コ で て い 
7 さ B0_ MOUJTRETU ま =TMHAGE まま 

アマ さ ⑦Q = ニ フ 

ア 7400 JTSUU=ILEN (MOUJTRETU ま も) 

ノ 410 ITF JTSUU=O_ THEN RETURN 

74 デ O LM も =LEFT 和 も (MOUJTRETU ま 。 1 ) 

ノ 4 さ Q_ BYTE=ASC (LM まま) 

7440 FOUR X=X1 TO X ご 

745O FOUR Y=Y1 TO YS 

7460 DOT=EBYTE AND BIT(P) 

7470 IF _ DOT>O THEN FSET(X。Y. じ ) 

74 ヨ 0 _ IF P>O THEN PF=F-ー1 』 GOTH 7S560 
7490O = フ 

75Q00O_ JTSGUU=J TGBUU-- 1 

7510 MDUJIRETU ま =RKTGHT ま (MUJTRETU ま 。 JISBUU ) 
752QO IF JISGUU=O_ THEN RETURN 

7530 LM まま =LEFT も (MOTHIRETU も 。 1 ) 

7540 1F LM まま = リ "リリ THEN EYTE=O 』 GOTOU 7Z560Q 
ノ 7550 BYTE=ASC (LIN) 

756Q0_ NEXT Y 

プロ 70_ NEXT X 

7Z5BO_RETURN 

ア 59 〇 の REM ーーー D ロ 1 七 ヒ 上 ロロ らら モ ュ ロ 七 呈 一 一 一 
7600 IF SETTEIZUMT=1 THEN RETURN 
7610 SETTEIZUNMTI=1 

762O_ DINM EIT(Z) 

7630 FOUR PF=O_ TO Z 

ノ 640 BIT (F') = ニダ ^P 

765QO NEXT P 

ノ 7660 SETTETZUMT=1 

7670_RETURN 


[注意 ] 行 7470 の PS 呈 m 文 は Level-3 の 書き 方 に な っ て いる . 他 機種 の 
場合 は PST(X。Y) と し 。 必 要 に 応じ て その 後に 色 指 定 を 書け ば よ 


し ゝ 。 
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8.9 オープニング ・ セ レモ ニー 


機種 に よっ て は 。 図形 表示 機能 (PS 文 。 エエ NB 文 な ど ) を 用 い 
る 前 に , 表示 モー ド の 設定 その 他 を 行なう 規則 に な っ て いる も の が ある . 
この 種 の も の は , 個々 の 文 の 文法 的 意味 を 考え る より も , 「 図形 表 示 を 行 
な う 場 合 に は プロ グラ ム の 最初 に 必ず この 決ま り 文 名 を 書く 」 と 覚え て 
し まう 方 が よい と 思う . 

[PC-8001 の 場合 |] モノ クロ 表示 の 場合 は 次 の よう に 書く . 


WIDTH 80。25 ーー 1 行 に 80 字 , 画面 25 行 
CONSOLLE 21。 5.1。0 
COLOR O.0。1 1__ モノ クロ ・ モ ー ド の 指定 


グラ フィ ッ ク ・ モ ー ド に 入る こと を 示す 
カラ ー 表 示 の 場合 は 次 の よう に 書く . 
WIDTH 80,25 
CONSO 世 包 21。 5,1,1 
GOLOR 色 番 号 ,O,1 ユ L____ ヵ ラ ー・ モ ー ド の 指定 
グラ フィ ッ ク ・ モ ー ド を 指定 
色 番 号 は 次 節 で 説明 する . 
[PC-6001 の 場合 ] PC-6001 に は 4 種類 の 表示 モー ド が ある が , 1 番 は 
文字 モー ド , 2 番 は 粗 す ぎ て グラ フ 表 示 等 に は 向 か ず 。 4 番 は モノ クロ 
に な っ て つま ら な い の で 常に 3 番 を 使う の が よい . その 場合 の 書き 方 は 
次 の よう に な る . 
SOR 選 BN る 。2 る 2, る 
OOLOR 表示 色 , 背景 色 , コー ド 表 の 選択 
COLOR 文 の 指定 に つい て は 次 節 で 説明 する . 
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8.10 色 の 指 定 


色 番 号 は 普通 。 次 の よう に な っ て いる 。 





[例外 」 PC-6001 の 表示 モー ド 3 (前 ペー ジ の 解説 参照 ) の 場合 の , 番号 と 色 
の 対応 は 次 の よう に な っ て いる *。 





コー ド 表 1。 2 の 内 の どちら を 使う か は COLOR 文 

COLOR 表示 色 , 背景 色 , コー ド 表 の 選択 
の 第 3 の パラ メー ター で 指定 する 。 な お , 画面 の 一 部 分 の み を コー ド 表 1 で 表 
示し 他 の 部 分 を コー ド 表 2 で 指定 する と いう よう な こと は で き な い .。 
[ 色 と 指 定 の 範囲 ] 色 は 1 ドッ ト ご と 独立 し て 指定 で きる こと が 望ま し 
ゅ い が 。 それ に は 大 容量 の メモ リー を 必要 と する (た と えば 640 メ 200 ド ッ 
ト の 各 点 独立 に 8 色 の 指定 が で きる よう に する に は 48KB の メモ リー 
が 必要 **)、 そこで 。 メ モリ ー を 節約 する た め , 色 の 指定 を 粗く し て いる 
(近く の 点 は 同じ 色 に な る ) 機種 が 多い . 


※ この 表 は マニ ュ ア ル の 記述 を その まま 写し た も の で ある 。. 実際 の 色 は こ 
れ と か な り 違 い , 黄 は 黄 緑 に 近く , 樽 は 茶 に 近く , 紫 は ピン ク で ある 。 

* ネ ネネ 。 22 王 8 だ か ら 8 色 の 指定 に は 3 ビッ ト 必 要 。 し た が っ て 640 メ 200※ 
3 ビッ ト 必 要 で 。 これ を バイ ト 単 位 に 換算 する と 48 キ ロバ イト に な る 。 

まま 玉 ※ 1 ドッ ト ご と 独立 に 色 指 定 で きる 機種 は , 本 書 の 執筆 時 点 で は , 
Micro-8。 PC-8801。 ゲ -800 な ど 。 いわ め ゆる 高級 機 に 限ら ちら れ て いる 。 
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8.11 例題 お ょ び 演 習 


例題 1 線 を 引く 
LTNE 文 を 用 いて , 画面 に 大 きく < 日 本 と 表示 する プロ グラ ム を 





作れ . 


[出題 の 意図] 図形 表示 の プロ グラ ム を 描く に は まず PS 世 T 文 や 本 エ 
NB 文 , CTROL 包 文 な ど を 定規 や コン パス の よう に 自由 自在 に 使え る 
よう に 慣れ る こと が 大 切 で ある . 本 題 に な ら っ て , 自分 の 名 前 , 学校 名 , 
地名 を 表示 し た り , 模様 を 書い た り 。 マン ガ を 描い た り し て みる と よい . 
[解法 手順 ] 大 き な グ ラフ 用 紙 に , 画面 の 1 ドッ ト (また は 2 ドッ ト ) 

が 1 目盛 に 対応 する よう 計っ て ワク と 座標 を 書き , 紙 の 上 で デザ イン を 
決め て 座標 を 読み 取り LTN 文 で 書け ば よい . 


[プロ グラ ム 例 ] 

10 り 0  CLG 

= けり LINE(170。 59) 一 (170。 15O) 。F'SET 
さけ LTNE(170。 0) 一 ( せ 70。 5O) 。FGSET 
449 LINE (EZ 。 SO) 一 (で ゼ ブ ロ 。 15O) 。 F'GET 
2 LINE(170。100) 一 (EZ70。100) 。 PSET 
6 り 0 LLINE(170.。180) 一 (S70。 15O) 。 FGET 
7 LINE( は 6D。 BOO) 一 (48O。 BO) 。 FGET 
OO LINE(4EO。 50) 一 (42SO。 15O) 。 FSGET 
90 。 LINE(4SO。 0) 一 (ミエ 60。 1 さ 0) 。FBET 
100_ LINE(4SEO。 0 うー(4BO。 13O) 。FSET 
110 LINE(39O0 4 130 うー(450。 1 さ 30) 。F'GET 


[ 別 解 ] 

ら 。 CLS 
10 人 =170 
0 じ = 5 
さ O = マミ 60 
40 1=45O : J=48Q 

5O ド = BO : 上 =1 ミ Q 

6Q0 LINE(A。C) 一 (A。E) 。、PSET 
7 ウ LINE- (EE) 。FSET 

BO LINE-(E。C) 。FGET 

?⑦0 LINE-(A. じ ) 。FSET 

100 LINE(。D) 一 (B。D) 。FSET 
110 LINE(F。E)-ー(J。E) 。FSET 
12O LINE(H。C) (HE) 。FSET 
1 さ Q LINE(F。L)-(H。E) 。FSET 
14Q LINE-(J』L) FPSET 

150 LINE(B』L)-(T。L) 。FSET 


B=270 [出力 例 」 


0=100 』 E=150) 
ロー さ ワ ロー 』 日 4 
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例題 2 一 一 一 スケ ー リ ング 
一 組 の デー ター 


イェ っ 3 See イ 。 se e ル ァ 





2 2 3 プア アア 


が 与え られ ただ た とき 。 これ を 散布 図 の 形式 で 画面 上 に 表示 する プロ グラ 
ム を 作れ . 


[解答 ] 散布 図 と いう の は 各 ? に つい て 。 座標 (x,。 色 ) の 点 を プロ ッ ト 
し た も の で ある か ら 。 画面 に お さま る よう に スケ ー リ ング し て 。 
FEOR エ = テ 1 TO RN 
PSEET( 文 (T ) ,Y( エ ) ) 


NEB 文 T 
と いう 要領 で 書け ば よい 。 
[プロ グラ ム 例 ] 


1 の 0 INFUT"N= リ "saN 

<O DIM X(N) 。Y(N) 

さ 30 FOUR IT=1 TO N 

40 PRINT 1gTaR(5) 

っ 50 INFUT X(I) 。Y(T) 

ら 60_ NEXT i 

ア 7QO_ XMTN=X(1 ) : XMAX=X(1 ) 

BO _YHIN=Y(1) : YHMAX=Y(1) 

OO GX=X(1) =』: SGY=Y(1 ) 

1OQ FUR IT=2 TO N 

110 IF X(ETD) ぶ FXMIN THEN XMIN=EX(T) ELSE IF X(I) FXMAX THEN XPMX ニ X(T) 
120 1F Y(ID) ぶ YMIN THEN YMIN=Y( エ T) ELSE 1F Y(I) FEYMAX THEN YMAX=Y(1) 
1 さ O ら X= ニ 5X+X(1) 』 SGY=SY+Y(I) 
140_ NEXT TI 

150 CX= ニ OO。 ワ 9 ワ 9※ ら 640/(XMAXーXMIN) 
160 CCY=C。 99※ で OO/ (YMAX-ーYMTN) 
1 7 の 0 XM=SX/N =: YM=SY/N 

18BQO CL5 

190 FOUR 1I=1 TO N 

2 で OO XX= ニ 640 一 (X(T) 一 XMIN) * じ X 

210 YY=2OOー(Y( エ TE)-YHIN) *CY 

SO PSET (XX。YY。』 ら 6) 

2 さき QO _ NEXT 1 

で 40 XX= ミ 64 〇 ロー(XMーXMIN) *※ じ X 

で 50 YY=2SOOー(YM-YMIN) *CY 

ご 60 LINE(O。 YY) 一 (6 さ 39。 YY) 。FSET 。 
270 LINE(XX。QO) 一 (XX。199) 。FPGET 。 記 
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例題 3 棒グラフ 
デー ター 必 。 5。 9 アァ を 読み 込み , 棒 グ ラ フ で 表示 する プロ グラ ム 





を 作れ . た だ し ッ は 人 負 の 値 を と らち ら な いも の と する 。. 


[解答 ] この よう な 問題 の 場合 , ま 

ず 方 眼 紙 の 上 で 画面 の アデ ザイ ン を す 1Y イキ 
る と よい .。 640 メ 200 ド ッ ト の 画面 で 
あれ ば , 棒 グラ フ の 横幅 を 600 ド ッ ト 
に と り , 基準 線 を ッ テ 180 と し, 縦 方 
向 が 160 ド ッ ト に お さま る よう に ス 
ケー リン グ す る と よい と 思う .。 こう 
し て 座標 変換 の 式 を 決め れ ば あと は 
簡単 で , 8.5 節 の 方 法 を 応用 し て 描け ば よい . 
[プロ グラ ム 例 ] 


1 INFUTTN="sN 

<O DIM Y(N) 

GO YMAX=O 

40 FOUR エ =1 TO NMN 

20 FRINT 1。 

60 INFUT Y(1) 

7 TF Y(TE) EEYMRX THEN YMRX=Y(1) 
8O_ NEEX 和 T 1 

7O_ CULLHR 1。7 

100 CLG 

11 の 0 =1 ヨ 0/YMAX 

1 ご O H= ニ 600/N 

1 ぶ FOUR IT=1 TO N 

140 X ド =H※* 1 

1 XL し テ X ド ーH 

160 YY=1 昌 HOーY( 1 ) ※ じ 

170 LINE(XL。18Q0) 一 (XR。 YY) 。FSET。 1 。B 
18O_ NEXT 1 





[出力 例 ] (ぬり つぶ し た けれ ば LTNE 文 の 最後 を BT に すれ ば よい ) 
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例題 4 折れ 線 グ ラフ 

デー ター 必 。。…。 才 を 読み 込み , 折れ 線 グ ラフ (x 方 向 は 等 間隔 
と する ) で 表示 する プロ グラ ム を 作れ . た だ し ヶ ゅ の 値 は 負 の 値 を と ら 





な いも の と する 。 


[解答 ] 前 問 と 同様 に , 画面 座標 と xz。 ッ の 値 の 関係 を よく 考え て お け 
ば 。 あと は 簡単 で ある 。 


[プロ グラ ム 例 ] 

10 INFUT"N="sN 

SO DIM Y(N) 

さ O _YMAX=O 

40 FOR 1 エ =1 TO N 

FRINT 1。 

60 INFUT Y(1) 

20 IF Y(1I) :YMAX THEN YMQAX=Y(1) 
BO NEXT 1 

9O CULOR 1。 フ 

10Q CLG 

110 C=160/YMAX 

12O 日 = ら 600/ (N-1 ) 

1 さ O FOUR 1=1 TU N-1 

14Q XR=H*KT+2 

150 XL=XRー-H| 

160 YR=190ーY( エ +1 ) ※ じ 

17Q YL=190-Y(1) *※ 

18Q0 LINE(XL』YL)-(XR。YR) 。FSET 。 2 
190 NEXT I 

2OO LTNE (SO。 SO)ー(6S2O。 190) 。FSET。 1 。E 


最後 の LTN 選 文 は 。 ワク を 表示 する た めで ある . 
[出力 例 ] 
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例題 5 ッ ー ナ 7(x) の グラ フ 





S1T 


0.001 ミ * ミ 0.3 の 範囲 で ッ テ の グラ フ を 表示 する プロ グラ 


ム を 作れ . 


[解答 ] 横 方 向 を 1 ドッ ト 分 ずつ 動か し , それ に 対応 する ヶ の 値 を 計算 
し レス ケー リン グ し て 表示 すれ ば よい が ,。 PS 世 串 文 に よる 打点 だ け だ と 
変動 の 激しい 部 分 で 点 が と びと びに な っ て し まう 。 その よう な 部 分 で は 
隣 の 点 と の 間 を エ LNE 文 で 結ぶ と よい . 以下 に 示す の は そう いう プロ 


グラ ム の 一 例 で ある . 
10 DEF FNC(X) ニ IN(1/X)※X 
2 の XMTIN=O。 OO) 1 
ささ 0 XMAX=O。 うさ 
人 0 YMTN ミ テー) 。 
っ 0 YMQX ニ サエ () 。 うさ 
ら 6 の 0 REM ーーーーーー 一 ここ まで " は ユー サド ー ガ お " ガ : ーーーーーーー 一 
70 _ COLOR 7.0 
80 CLG 
0 じ =160/(YMX-ーYHIN) 
100 DX=(XMAXーXMIN) /600) 
11 の 0 FUR 1=1 TU 599 
ど ご 0O メニ DX メ ※ エ キ XMIN 
1 さり X メ メニ エ 二 で O 
140 Y=FNC(X) 
150O YY=1 ヨ ロー(YーYHTIN) *※ じ 
160 エ TF エ =1 GOUTOUO EEOO 
17 の 0 IF 本 ES(YY-YGDC BUTOU どの O 
180O LINE(XB4YB) 一 (XX。YY) 。FSET。 ら 6 
190_ G ロ OUTOH 210 
OO_ PBET (XX。 YY。 ら 6) 
で ご 10 XQ ロ ニ XX 』 YY ロニ YY 
で 2OO NEXT 1 
2 さき O LINE(EO。 SO) う 一 (6SO。190)。FSET。4.E 


上 記 の プロ グラ ム に よる 出力 例 PSET 文 だ け で 描い た 場合 
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例題 6 極座標 
極座標 で 表 さ れ た 曲線 
ヶ 三 Sin 122 ( 0 ミ の ミミ 2 ァ Z) 





を 描く プロ グラ ム を 作れ . 


[解答 ] この よう な 図形 を 描く 場合 に は , 横 方 向 の 係数 C 又 と 縦 方 向 の 
係数 CY の 比 を うま く 調 人 節 する 必要 が ある . それ に は マニ ュ ア ル を 研究 
し て 決め て も よい が , ひと まず 1 : 1 で 表示 し, その 廿 法 を 計っ て 係数 を 
決め る の が 簡単 で ある . 


10 DEF FNR(T) =SIN(1S\ 生 ) 

で の 仙 =0 

さ O HH= で ※ さ 。1416 

40 NsSOQO 

5Q REM ーーー ここ まで "は ユー サド トー お "お ミニーーーー 

60 DIM ER(N) 

フ 0_DT=(Eー 谷 ) /N 

BO_ RMAX=O 

90 REM お ん すう ちの けい さん と ーUCrT 人 の けい すう の さん で い 

1Q00 FOR 1=O TO N 

11Q T=1T※DT 

1320 R(1I)=FMR'( 丁 ) 

1 さ O AR=aERG(R(1 ) ) 

140 1F aRRMAX THEN RHAX=aFR 

150 LOCATE Q。O 』 FRINT ti 

160 NEXT 1 

170 CY=BQ0/RMAX 

180 CX= ニ CYS。 呈 [出力 例 ] 
190 REM ーーー キリ ォ コ 9 セ ザ ーーーー 

2QQ CLB 。 
210 FOR 1=O TO N ii 
2SO 本 =1※%DT 
3O XX= さ SO+CX*R( 1 ) *※COB(T) 1 生生 衝 ま 
240 YY=110-CYKR(1T) *SIN(T) 間 E ま に 
っ O PF'GET ( X 1 。 YY 」 ら ) EE CO : : : | BE 
260 NEXT 1 HP 


ー つ 





ーーー つ 
に 。 ーー 
ーー 
… 
ーー 
っ 
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例題 7 円 グラ フ 
百分比 る , の 2。 …。 の を 入力 し 。 円 グラ フ で 表示 する プロ グラ ム を 





作れ . 


[解答 ] 円 グラ フ を 描く に は ,。 まず 円 を 描き , 次 に 
SSー ム 6 5 三 ム の 十 の の SS 三 ム 十 の 十 る … 5 三 る 二 … 十 の 
を 計算 し , それ に 対応 する 角度 を 計算 し , 1 エ RN 選 文 で 線 を 引き , 1 点 ご 


と に 色 指 定 の で きる 機種 で あれ ば PATIKRNT 文 で 色付け すれ ば よい .。 


10 INFUT"N=" ョ NR 
20 DIM 全 (N) 。 呈 (NN) 

3O_ FUHR 1=1 TH N 

49 FRINT 1{。 

50 INFUT (1) 

60 _ NEXT { 

フ 70 COLOR 呈 。 1 : ビ = ブフ: CLS 
BO F=6.2/100 

0 XQ= ス 2Q 

1 () () Y () 三 1 () () 

110 RR=BO ポ る. 

120 BUSUEL 2 さ 0 

1 さ O LINE (320。 100) 一 (0。 GO) 。FSET 
140 (1)= 人 (1) 

15O FOR 1=2 TO N 

160 5(1)= 紀 (エー1 ) + 合 (1) 

17O T=F% 呈 (1 ) 

1 ヨコ O X= さ 2O+RKGIN(T) 

190 Y=100ーRKCUS( 丁 ) /2。 

200 LINE (SO。 100) 一 (X。Y) 。FSET 

2 る 1 の NEXT 1 

2oO END [出力 例 ] 
2 つ さ ORR=R※R 

240 り FUR X1=O TD QO.70 フ 7*R 
25O Y1G=BDR (RR 一 X1※X1 ) 
260 Y1=Y1TB/2。 

る フ 0 XG=YTG : Y2=X1/2。 
280 PSET(XQO-X1 。YO-Y1 。 ビ ) 
29O FPSET(XOーX1 。YO+Y1 。 ビ ) 
3 さ OO PSET(XQ+X1 。YOー-Y1 。 ビ ) 
さ 10 PSET(XO+X1 。YO+Y1 。 じ ) 
ュ 20 PBGET(XOーX2。Y0ーY2。 ビ ) 
ささ O PSET(XOーXG。 YO+TY2。 ビ ) 
ュ 40 PSET(XO+TX2。YOーY2。 ビ ) 
さ 5O PSET(XO+XG。 YO+Y2。 ビ ) 
さら 6Q NEXT X1 

ュ フ 7 の _ RETURN 





8.11 例題 お よび 演習 221 


例題 8 等 高 線 
2 変数 関数 ア (y,y) の 等 高 線 (等 値 線 ) を 描く プロ グラ ム を 作れ . 





[解答 ]】 か な り 細 か い 格 子 点 上 で 関数 値 を 計算 し , 隣り 合う 2 点 の 関数 
値 の 間 の 等 高 線 と し て 表示 すべ き 値 が 含ま れ て いれ ば プロ ッ ト す る 。. 


10 DEF FNC(X。Y)=STN(XーY*KY)*※GTN( マ ーX※X) 二 1/( り 0。 ロ キオ メル メオ Y※Y) 
だ 0 XMIN= ニ ー1 』 XMAX= ニ セロ 

さぶ YMTIN= ニ Os YYMHX= ニ で 。 ら 

介 D FMIN テ = テー1 』 FMAX=1 

っ 0O_ REM ーーー 二 こ まで て で "は ユー 革 *ー ガ お" ガミ ーー 一 
ら 60 CCL5 

プ 70 DX=(XM 人 IX メーXMIN) /600O 
BODY=(YMAX-YMITN) /160 

0 届 = ニ (FM メーFMIN) /20 

100 FOUR J=SO TU 1BO STEF 全 

110 Y=YMIN+(18 ヨ ローJ ) %DY 

12O FUR 1=EO TO 6EO STEF 4 

1 3 の X= ニ XMTIN+( エ ユーロ) *DX 

140 Z=FNC(X。Y) 

15 の 0 =INT((ZーFHIN) /M) 

160 IF TEETD THEN FPSET (エー ゴゴ 。 ら ) 
170 T=† 

1BO_ NEXT 1 

190 PRESET(18。J) 

2QOO_NEXT J 

<10 FOUR 1= ジ で TO 618 STEF 4 

ご で O X メ = ミ XMTN+ (エー) DX 

<30 FUR コ =S1 T ロ 179 STEF 

2 人 0 Y マ =YMTIN+(1B ロ ーーJ ) \DY 

25O Z ア = テニ FNC (XY) 

“60 「= ニ INT((ZーFHMIN) /M) 

eZ 1F TEETO THEN FPSET (1T。 ゴ ー1 。6) 
eSBO † 避 = 

SO NEXT J 

300 FRESET(T。 分 O) 

ふ 10_ NEXT 1 [出力 例 ] 
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例題 9 一 一 一 一 動か す 
(3 針 表 示方 式 の ) 時 計 の プロ グラ ム を 作れ . 


[解答 ] 高速 の アニ メー ショ ン は 機械 語 で 書か な いと 無理 で ある が , 時 
計 ぐ らい な ら BASIC で も 書け る . 以下 に 示す の は FC-6001 の プロ グラ 
ム の 例 で ある 。. 

まず 行 10 で 現在 時 刻 ( 女 時 4 分 ) を 入力 する .。 行 20ー40 は オー プ ニ ン 
グ ・ セ レモ ニー で ,。 画面 は 水色 に な る . 

行 50 お よび 行 210--260 は 内 蔵 タ イマ ー の 値 を 組込み 関数 FTME で 読 
ん で 現在 時 刻 (時 / 分 S 秒 ) の デー ター を 更新 する プロ グラ ム で あ 
る . PC-6001 の 内 蔵 タ イマ ー は 1/1024 秒 単位 の 整数 表示 と いう 。 他 機 種 
と な か な り 違 っ た 方 式 を と っ て お り , その た め , 現在 時 刻 の 人 算定 に 手間 
が か か っ て いる (ここ の 部 分 は NEC 編 「 み ん な で 使 お う BASIC」 の プ 
ログ ラム 例 を 参考 に し た )。. 

文字 盤 の 中 心 は 画面 座標 (100。 100) と し , 長針 と 短針 の 先端 の 座標 
は (XM, YM) と ( 交 古 , Y 是 ) で 表す こと に し た . エエ RN 選 文 に より 長 
針 と 短針 の 表示 を 行なっ て いる の は 行 700-780 の プロ グラ ム で , 

行 700 今 ま で 表示 され て いた 長針 を 消す 

行 710-730 長針 の 新 位置 を 計算 し て 表示 

行 740 今 ま で 表示 され て いた 短針 を 消す 

行 750-770 短針 の 新 位置 を 計算 し て 表示 
と いう 手順 に よっ て 針 を 進め て いる .。 最初 は 「 今 まで 表示 され て いた 針 」 
が な い の で 。 お か し な こと に な ら ぬ よう 。 行 60--80 で 初期 設定 を 行なっ 
て いる . 行 100ー140 で は 文字 盤 の 円 を 書い て いる (も っ と 速く し た けれ 
ば 8.6 人 節 の よう に 書き 替え る と よい )。 行 200 て 410 が 反復 部 分 で , まず , 
秒 の 値 が 変る の を 待ち 。 変っ た ら , それ まで の 秒針 を 消し て , 秒針 の 新 
位置 を 計算 し て 表示 し て いる ( 行 330--400). な お , 行 270--320 は 。 画面 
の 一 部 に 時 刻 を デジ タル 表示 する プロ グラ ム で ある ( 行 270。 280 は 今 ま 
で に 表示 され て いた 文字 を 消す 操作 ). 


8。 


() 民 
1 

な 

ふし ) 

4 

て Jf) 

ム ら ) 

アロ ) 

BOO 

ヲ () 

100) 
110 
1 で 0 
1 3 
1 4 
で 7) ) 
“ご 10 
で (0) 
で (0) 
ご 人 
ご うつ 
ご ら 0 
マ ご アロ 
ご コロ 〇 
〆 ワ O 
ふ 00 
さき 1 の 
さ で 0 
ささ 
ふけ 
さり 
さら (の) 
さ ア GO 
さぶ 80 
さあ ワ 
400 
人 410 
アロ 
プ 10) 
プア で 0 
ア さ きい 
アプ 4 
アア 5 
アム 6 
アア 
78BO 
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EM FC-6Q0O1 人 の と けい 
INFUT" い まな ん し "で リュ 日 。M 
SCREEN 。 人 で 。 人 の 

COILDR 1。S。 

CLS 

ST=TIME 

X=100 8 YE10Q 
XM=10Q 』 YMm10O 
XH=1OO 』 YHm1OO 
GOSUE 7Q00 

FOR smO TO 6.2B STEF Q.QO5 


XX=70XGTN( 人 Q)+100 
YY=7O*CUS(Q)+10G 
FSET (XX 。 YY) 。 1 
NEXT 人 

REM ぶり ガミ し 

8 ロ = ロ 

NT=TIME 

=INT( (NT-T) /976) 


IF =5S6D THENMN ビデ 

IF 5:60 THEN MM=M+1 SG=O5 GT=TTMEI GUSUE ZOO 
1F MEm60 THEN H=H+T1 』 MO 
LINE(1EO。 9) 一 (70.10)  E。EF 

IF Be=O_ THEN LIMNE(O49) う 一 (130。1)。 ど 。BEF 
LOUCRTE 049 

FRINT _ TEXK1DaHiPTgTi 
FTINT TEB(4) ョ Msg Ti 
FRIMNT TaAE( ア )』5 
LINE(XX。YY) う 一 (X。Y) 』 ビ 
DX=SGTIN(O。 10 コ *※ ら ) 
DY=ー-C ビ 0S(O。 10 コ *% ら ) 

メメ = ニ 100+60*%DX 
YY=100O+60O%DY 

X メ = ニ 100+ キ アフ ※DX 

Y=10 ロ + プ 0\DY 
LINE(XX。YY) う 一 (XY)。 さ 
GUTOU SO 
LINE(100。100) 一 (XM。YM) 。 
XM=100+60*SGIN(O。 10S5※KN) 
YM=100-ー60%CUS (0。 10 コ 氷 聞 ) 
LINE(10G4。 100) 一 (XM。 YRH) 。 人 4 
LINE(100。100) 一 (XH。YHD) 。 
XH=100+5O0XGTN(O。 コ デ あ ※H) 
YH=100-5O*KCOUS (0. だ さき % 日 ) 
LINE(1004100) 一 1XH。YH) , 人 4 
RETURN 
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例題 10 滞 字 の フォ ント 作成 

16<16 の ドッ ト ・ パ ター ン で 漢字 を 表示 する た め の フ ォ ン ト を 画面 
上 で デザ イン し て 。 文字 列 型 配列 反 ANTT$ に 格納 する プロ グラ ム を 





作れ . 


[解答 ] 簡単 な プロ グラ ム 例 を 以下 に 示す . この プロ グラ ム を 実行 する 
画面 上 に 小さ な 点 が 16 行 16 列 表示 され る ( 行 6800--6950)、 その 内 の 
1 点 だ けが 赤く 光っ て いる . これ が カー ソル の 代用 品 で 。 カー ソル 移動 
キー| っ | | 」 | を 押す と 矢印 の 向き に 赤い 点 が 動く . 赤い 点 が 希望 
位置 (ここ に ドッ ト を 表示 し た いと いう 位置 ) に 来 た ら 。 8 の キー を 押 
す と , その 位置 が 配列 DP に 記録 され , 画面 に は 水色 の 四角 印 が 表示 され 
る (左下 の 図 参 照 )、 既に 登録 。 表示 され て いる ドッ ト を 取り 消し た い 場 
合 は , そこ に 赤い 点 を 合わ せ て 選 の キー を 押す . こう し て フォ ント (1 
字 分 ) が 完成 し た ら エ の キー を 押す と , 
コー ト ′ を な ん は ` ん に し ます か 
と いう 表示 が 出る か ら , その 漢字 に 付け た い 番 号 を 入力 する (それ が 配 
外 六 ANTT$ の 添字 に な る ). この よう に し て , いろ いろ な 漢字 の フォ ン 
ト を 作り , 漢字 ROM な ら ぬ 漢字 RAM に 入れ て め ゆく. 全部 で き 上 っ た 
な ら ば , 16X16 の ドッ ト が 表示 され た だ た 時点 で 色 の キー を 押す と , この プ 
ログ ラム を 脱出 し て メイ ンプ ログ ラム に 帰る . 





3 AA 
ー 指 旨 ・・ 地 二 主 孝 二 二 
L 生還 3 還 。 攻 コ 。 . 症 還 し 】 

・ーーーー ・・ - 証 一 二 一 寺 
[っ ま 表 ) 和 
ャ ゃ * ょ キ - 二 ギ 二 二 
生 天 誠 
LELL 』 し EL 』 LE ua トロ お 
id * ーー テー プー ーー ご ーー テー ーー 
息 2 し し ーー コ に 
し . 症 還 、 半 還 、 」 界 の 員 
お の ^ 幸 才 才 才 
eg 
し 2 剖 理容 ロー プ em ご em レー 
Ku の 人 」 ュー 「 ] 』 
[ 更 ] 2 や デー Pu ー 1 昭 。 よ ー ュー ー 1 
の 
。 で 2 呈 間 
ト 王 生 人 穫 」 2 本 や 
5 乱 Pr 記 記 P PP 
・・・・ ーー ニー テー テー テー テー ーー 

は IL ーー mr pi ー ”" 

OO 
L 間 、 還 、 生 人 二 ーー 

この プロ グラ ム で 作成 し た 
人 


フォ ント に よっ て 表示 し た 
フォ ント 作成 中 の 画面 「 二 十 四 孝 」 
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6010 REM 常 深 
60 デ OO _ REP 党 サコ " 申 一 すっ PFUNT さ せい 『" 党 
6030 REM 有 (MIE-6890 よう ) 党 


OO 
ら 6050 IF INI=1 GOTO 6100 
6060 DIM DF(15。』 15) 
6070 DIM ENJT ま ( 條 0) 
608O INIT=1 
ら 6090_ ADR=O 
6100_ CUNSULE 17。. 
6110 GOUSUE 6790 』 REM ニ こうろ し て ん を ひよ ろう し “ 
ら 61 ご O REM ーーー ij? ター フッ よ カ ニカ ーー 一 
ら 6130 JI=SCREEN(X。Y) 
6140_ LOUCATE XX。Y。 1 
6150_ COULUR 2 』 PRINT CHR 和 ま (JE)s 
6160 まま =INPUT ま (1 ) 
6170 LOUCATE X。Y 
618O IF DF(X。Y)=O _ THEN COULUR 7 ョ FRENT > 
6190 IF DF(X。Y)=1 THEN CULUR 5 gi FREINT 『 朱 s 
ら 62OQO エ =A5C (J ま も ) 
6 デ 10 IF まり 06! THEN GOUSUE 6350O 
ら 6 や 0O IF JJ も ="RV THEN BODHSUBE 6400O 
6 ぞう さ 0 IF JJ ま も ="T! THEN GUSUB 6460) 
640 ITF も ="E" BHTO 6770 
< つ 0 エ F エ =&H1C THEN X ニ X+1 
らら 60 IF エエ =H1D THEN X ミ Xー1 
ら 6 デ /0 1 エ F ユエ =H1E THEN Y=Yー1 
6 1F 上 エ =H1F THEN Y ミ =Y+1 
6 ァ < ワ 0 IF XO0 THEN X= バ 
ら 6 ぶ 00 エ IF YO THEN Y=0 
ら 6310 IF X:1 ロ THEN X=155 
ら 6 さり TF YE1G THEN Y=15 
64380 GOT0 ロ 6130 
6 さ 40 REIM ーー BTIT IN ーー 一 
6350 COLUR 5 
6 さぶ 60 LUCATE X。Y 
ら 6370 PRINT" 湊 " 
6380 DF(X。Y) =1 
6390 RETURN 
6400 REM ーーー ER 人 SE ーーー 
6410 COULUR 7 
642O0 LOUCRTE X。Y 
ら 6430 FRINT"・ リ " 
6440_ DF(X。Y) = ロ 
ら 645O_ RETURN 


GUSUB 6790 
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6460 
647Q 
ら 6480 
ら 6490) 
ら 6S500) 
6510) 
らら SO 
ら 653Q 
ら 6540 
ら 65990 
ら 6560) 
ら 65 ら 7Q 
65BC) 
ら 6590 
らら 60Q 
6610 
ら 6620 
ら 6630 
ら 6640Q 
665S50) 
らら 660) 
ら 667Q 
ら 6680O 
ら 6690) 
ら 700) 
ら 671 
67 の 
67 さ 30 
67Z40 
ら 6750 
ら 6/6() 
ら 77 
678O 
67 
ら 680O) 
6B1G 
ら 68 
ら 6BO 
6840 
685S() 
ら 6B6() 
ら 687 
68BG 
ら 6890) 
ら 690 
6910 
ら ⑦ で り 
ら 93O 
6940 
69 呈 
ら 96 る 0 
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REM ーーー 衣 正 る ーー 一 

GUSUE 7590 』 REM COn ら tan ロ も せ コ で い 
LUCATE 0。16。 さ 

FRINT リコ ー ト を な ん 7 ん に し ます お (DR= "リョ DR の)" ョ 


INFUT 1$ 
IF IT* ま PV THEN DR=VAL (1 ま ) 
F= フ 

BEYTE=Q 

FDR X=O TO 15 


FOR Y=O TO 15 
LOCATE X。Y,1 
FRINT " "ia 


DDT=DF'(X 。Y) 
IF DOT=O BOTO 661Q 

BYTE=BYTE ロ R BIT(P') 

IF PO THEN PF=F-1 = GOTO 665O 
= アフ 

IMAGE 和 =TMABE ま +CHR ま (BYTE ) 
BYTE=Q 

NEXT Y 

NEXT X 

IMQAGE ま =TMAGE ま +CHR ま (BYTE ) 


ERNJTT ま (DR ) =IMQGE ま 
DR=ADR+ 1 

X 1 =C)s X で ニーX メ 1+1 選 

Y1=Os Y や =Y1+155 

じ = ム 6 

GUSUBE 7Z300 

INFUT MAIT 67SO41O0。 "UE で りり ョ エ 和 ま 
+ MAGE ま = リリ 

RETURN 

REM ーーー nd ロ 和 † 子 O ロ ロ 七 ーーー 
RETURN 

REM ーーー こう し て ん 4 を ひよ うし * ーーー 

じ L5 

CULUR ア 

FUHR X=O_ TO 15 

FOUR Y=O_ THU 15 

LOUCRTE X。Y 

FRINT "> 9s 

DF (XY) = ロ 

NEXT Y 

MEXT メ 

LUCATE OO。 人 9 の 。 1 

メ = テ 0 =』 YO 

LOCTE 0。 17 

FRTNT を お すす を トリ ョ 上 ト ガ お" Em 上 ト き 福 ます" 
FRTNT KR を お すす に トート を け す こと お ガ お" で" きま すり 
FRTINT を お す と ど と その も し ガ " と つるべ 札 ます すけ 
FRTNT EE を お すす と しゅ うけ よる に な けけ ま すり 
RETURNI 
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[メイ ン ・ プ ログ ラム の 例 ] 
Cp 参考 まで に 「 二 十 四 孝 」 を 表示 し た と 
き の メ イン ・ プ ログ ラム を 示す .「 孝 」 
の フォ ント を デザ イン し , コー ド 1 を 
格子 点 を 表示 与え て メイ ン ・ プ ログ ラム に 帰る と 「 二 
配列 DP を クリ ア 十 四 孝 」 が 表示 され る . 


操作 説明 文 を 表示 


6800 





10 CLEAR さき QOQOGO 


6130 _- 還 
440 GUSUB 6000 
現在 位置 (X,Y ) 7 ロー し モッ 
95 CCL5 
を 赤 で 示す 100 FOUR Yi=SEO TO OO GTEF GO 





110 FOUR X1eSO_ TO 1EO STEF SO 
1 で けり X だ デ X1+1 選 

6160 1 うり YEmY1+1 コ 

1 TMRGE ま =E 介 NHT 生 (1 ) 

160 SOSUR 73000 

170_ NEXT X1 

17 ら 5 NEXT Y1 








18 ウ END 
6180 
表示 を も と の 
色 に も どす 
6350 













ご タデ 登録 を 取り 消し , 表示 を も と に も どす 
<r タ ラン 配列 KANT$ の 指定 位置 に 格納 


6800 


ああ ン 画面 と DP を 初期 化 
YE し 
矢印 の 向き に 「 現 在 位置 」 を 移動 ーー 
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Il 問 題 INNHIIIHHHHHHHHHHIUHHUHIIIIHHHIIIIIHHIIIHIIHIIHIIIIHIIUIIIHHUHIHIHIHIHIIHHIHHIIHHHHIIHHIH 
8.1 (ヒス ト グ ラ ム ) W パ 人 の 生徒 の 試験 の 点数 (100 点 満点 と する ) を 読み 
込み 。 
0 で 4 点 5 ^ 9 点 10--14 点 15--19 点 
20 一 24 点 90~94 点 95 点 以上 
に 分 け て 人 人 数 を 数 え , 点数 の 分 布 を 棒グラフ で 出力 する プロ グラ ム を 作れ . 


8.2 (年 齢 別人 口 構成 図 ) 地方 自治 体 の , 男女 別 , 年 齢 別 の 人 口 を 読み 込 
み 。 下記 の よう に 図 化す る プロ グラ ム を 作れ . 


90 歳 以上 氷 工 玉 玉 
80--89 氷水 芽 玉 素 玉 
70-79 水素 来 十 玉 素 氷 
60--69 率 来 来 玉 来 来 虐 玉 来 来 玉 素 氷 
50->-59 米 玉 玉 来 玉 玉 工 玉 玉 玉 玉 玉 


40--49 未来 来 玉 氷 来 求 工 永 未 氷 素 来 来 玉 
男 < ェ ーー 女 
8. 3 (管理 図 ) デー ター ム の ,。 の 2。 9 の ヵ を 読み 。 その 平均 値 と 標準 偏差 
ど を 計算 し 。 グ ラフ の 左端 が ーー 6 g, 右端 が z 二 6 と に な る よう に スケ ー リ ン 


グ し て プロ ッ ト せ よ 。 


8.4 (対数 目盛 ) デー ター ム , @,。 …。 の 6 の, を 読み , 対数 目盛 で プロ ッ ト す 
る プロ グラ ム を 作れ 。 た だ し 値 の 範囲 は 10" か ら 1 まで と する 。. 


8.5 (関数 の グラ フ ) 次 の 関数 の グラ フ を 描け . 


G) ッ ニ ペタ" (ニー 0 か ら ァ ー1 ま で ) 

(i) y ッ ニーsin (0 か ら ァ ニー ニ ァ ラジ アン まで ) 
師 ャ ニー1/(1 十 え う (ニー3 か ら ィ ニテ 二 3 まで ) 

9 ッ タニ ゾ 1 ユー (テー1 か ら ァ ニテ 十 1 ま で ) 

(v) ッ = テ sin ァ ー0.3 sin (5z 十 0.2) ( ィ ニ 0 から ァ テ 2 まで ) 
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A . 1 プリ ンタ 一 


MZ-80 メー カー 提供 の BASIC で は 
PRTNT ン ノン P 出力 項目 の 列 
( 例 ) PRTNT ノ PB A,B,OC 
と 書く . Hu BASIC の 場合 に は 
PRTIRNT #1 , 出力 項目 の 列 
と 書く . 
PC-6001, PC-8001, PC-8801 な ど で は 
LPRTRNT 出力 項目 の 列 
( 例 ) LPRTNT A,B,O 
と 書く . 
Level-3。 Micro-8 な ど で は 。 あら か じ め 
OPEN "00 。# 番 号 。!LPTO:『" 
に よっ て 。 プリ ンタ ー に 番号 を 対応 きせ (同時 に バッ ファ ー を 用 意 し ) 
PRINT # 番 号 , 出力 項目 の 列 
に より 出力 し , 最後 に 
OLOS 到 # 番 号 
に よっ て 。 番号 と の 対応 を 解除 する (同時 に バッ ファ ー も 解消 され る ). 
( 例 ) OPEN "0O0。#1。 リ ULPTO:" 
TNPUT A,B 
C= テ A 十 
PRTNT # キ 1 。!「 コ タ エ リ :O 
OLOS 也 #1 ユ 
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A.2 カセ ッ ト ・ テ ー プ 


1. プロ グラ ム を セー プ * する 方 法 
SAVEB "ファ イル 名 『" 
と いう の が 普通 の 書き 方 で ある . ファ イル 名 と いう の は ,。 後日 , 再 入力 
する と き の 識 別 用 に 付け て お く 名 前 で , 英字 か ら 始 まる 6 字 以 内 の 英 数 
字 の 列 を 用 いて お け ば 安全 で ある (実際 に は 使用 で きる 文字 の 秀 囲 は か 
な り 広 く , カナ 文字 や 特殊 記号 を 許す 機種 も 多く , 7 字 以 上 を 許す 機種 
も 少な く な い が ). な お 。 PC-6001 と PC-8001 で は 
OSAVE リフ ァイル 名 『 
と する 。 
2. プロ グラ ム を ロー ド ** する 方 法 
LOAD リフ ァイル 名 『 
と いう の が 普通 の 書き 方 で ある が , PC-6001 と PC-8001 で は 
CLOAD リフ ァイル 名 『" 
と する 。 ファ イル 名 を 省略 し て , 単に 
LOAD (また は OLOAD) 
と する と ,。 ファ イル 名 の 照合 を せ ず に , 最初 に 見 つか っ た プロ グラ ム が 
ロー ド さ れる (た だ し PC-8001 は 。 これ を 認め て いな い の で 常に ファ イ 
ル 名 が 必要 で ある ). 
8. デー ター の 入出 力 
MZ-80 メー カー 提供 の BASIC で は 
出力 PRTINT/T 出力 項目 の 列 
入力 INPUT ノ T 入力 項目 の 列 
と 書く . 





ネネ SaVve. 保存 の た め に カセ ッ ト ・ テ ー プ な ど に 記録 する こと 
まま 。 load. 読み 込ん で 実行 可能 な 状態 に する こと 
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Hu BASIC/mz, PC-8001 
出力 PRTNT #ー1 ,。 出力 項目 の 列 
入力 TNPUT #ー1 , 入力 項目 の 列 
Level-3, Micro-8 
あら か じ め 
出力 OPEN "OO 。# 番 号 。"OCASO:" 
入力 OPEN "1 # 番 号 VOASO0:" 
に よっ て 。 カセ ッ ト ・ テ ー プ に 番号 を 対応 きせ て お いて 
出力 PRTNT # 番 号 , 出力 項目 の 列 
入力 INPUT # 番 号 , 入力 項目 の 列 
に より 入出 力 を 行ない ,。 入力 また は 出力 が 終っ た ら 
(入出 力 と も ) OLOS 選 # 番 号 
に よっ て 。 番号 と の 対応 を 解除 する (出力 の 場合 。 同時 に , バッ ファ ー 
に 残っ て いる 未 記 録 デ ー タ ー が テー プ に 書き 込ま れ , 最後 に end of file 
の コー ド が 書き 込ま れる . 

4. プロ グラ ム を 文字 列 デ ー タ ー と し て 入力 する 方 法 * 

BASIC の 文字 列 処 理 機能 を 用 いて プロ グラ ム を 解析 し た り 自 動 書 き 
か え を 行なっ た りす る に は ,。 一旦, カセ ッ ト ・ テ ー プ に セー プ ブ し て 。 そ 
れ を デー ター と し て 読み 込め ば よい . た だ し , その た だ ため に は 

SAV 世 リフ ァイル 名 『! 。A 

と いう 形 で セー ブ す る 必要 が ある . 末尾 の A は 「ASCII コー ド (いい か 
えれ ば 標準 的 な 文字 列 デ ー タ ー の 形式 ) で 記録 せよ 」 と いう 指示 を 表す . 
この よう な 形式 で セー ブ プ し て お け ば , デー ター と し て 読む こと が で き , 
TNPUT# 文 で 必要 な 字数 だ け 読 み 込ん で 処理 を 行なう こと が 可能 に 
な る . 

5. 文字 列 デ ー タ ー と し て 記録 し た プロ グラ ム を 実行 する 方 法 * 

これ は 。 普通 の LOAD 文 で ロー ド す れ ば よい 





* PC-8001 の カセ ッ ト ・ シ ステ ム で は で き な い . 


2932 付 録 周辺 装置 の 使用 法 


A.3 フロ ッ ピ ー・ デ ィ ス ク 


プロ グラ ム の ロー ド , セー ブ と デー ター の 入出 力 ( 順 編成 ファ イル * の 
場合 ) は カセ ッ ト ・ テ ー プ と だ いた だ た い 同 じ 要 領 で ある . た だ 。 少し 違う 
点 は 。 カセ ッ ト ・ テ ー プ は 普通 。 1 台 だ け で ある の に 対し 。 ディ スク は 
複数 台 使 用 する こと が 多い と いう こと で ,。 それ ら を 識別 する た め に ドラ 
イプ 番号 (装置 番号 ) と いう も の が ある . ドラ イブ 番号 は 固定 し て お り , 
フロ ッ ピ ー・ デ ィ ス ク 挿 入口 の 所 に 刻印 され て いる . 装置 番号 の 指定 を 
省略 する と , 普通 。 最も 若い (小さ い ) 番号 の 装置 が 指定 され た こと に 
し て 処理 され る . 
1. プロ グラ ム の セー プ と ロー ド 
SAVB "ドラ イブ プ 番 号 : ファ イル 名 『 
LOAD "ドラ イブ プ 番 号 : ファ イル 名 『! 

2. デー ター の 入出 力 ( 順 編成 ファ イル * の 場合 ) 

カセ ッ ト ・ テ ー プ の 場合 と 同様 に 
あら か じ め OPEBRN 文 に より ファ イル を 開い て お く 
出力 は PRTNT# 文 
入力 は TNPUT# 文 
終っ た ら OLOS 到 文 に より ファ イル を 閉じ る 

と いう 要領 で プロ グラ ム を 書け ば よい . OPBBN 文 の 書き 方 は , 

MZ-80 
出力 WOPEBN # 番 号 。'「$EFD ド ライ ブ 番 号 : ファ イル 名 『 
入力 ROPEBN # 番 号 。!$〒D ド ライ ブ プ 番 号 : ファ イル 名 『" 


cges 


* sequencialfle.。 カ セット ・ テ ー プ に 記録 する の と 同じ よう に 。 デー ター 
を 1 列 に 並べ て 記録 し て ゆき 。, 入力 時 に は 列 の 先頭 か ら 順 に 読ん で ゆく 方 式 の 
ファ イル 
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PC-8001, PC-8801 
出力 OPEN リリ ドライブ プ 番号: ファ イル 名 OS 


(前 行 の 続き ) | OUTPUT AS # 番 号 
入力 OP 包 BN 「! ド ライ ブ プ 番号 : ファ イル 名 『! EEOR 
(前 行 の 続き ) | INPUT AS # 番 号 


[備考 ] PC で は 。「 既 存 の ファ イル の 後に 追加 」 と いう こと が で きる 。 
追加 出力 OPEN 「! ド ライ ブ プ 番 号 : ファ イル 和 名! OR 
(前 行 の 続き ) | _ APPEND AS +# 番 号 
Level-3。MMicro-8 
出力 OPBN "0O リ 0 。# 番 号 。 リ ドラ イブ 番号 : ファ イル 名 『 
入力 OPEN リエ T リ 。# 番 号 。!「 ド ライ ブ プ 番 号 : ファ イル 名 『 
で ある 。. 

PRTNT# 文 と TNPUT# 文 の 書き 方 は , # 番 号 が 付く だ け で , あと 
は 普通 の PRTRNT 文 。 て TNPU 呈 文 と 同じ で ある 。. 

CLOS8 呈 文 は , 

CLOSEB # 番 号 
と 書け ば よい . 
[注意 ] 1) PC-8001 の 場合 (お よび PC-8801 を N-BASIC で 使用 する 場合 ) 
は ,。 ディ スク を 入れ た ら , 
MOUNT ドラ イブ 番号 
と いう コマ ンド に よっ て 。 パソ コン に [ディス ク を 入れ まし た よ 」 と いう こと 
を 教え て や ら な いと いけ な い .。 まだ た, ディ スク を と り 出 す 前 に は 必ず 
REMOV ドラ イブ 番号 
と いう コマ ンド に よっ て 。 パソ コン に 「 デ ィ ス ク を と り 出 し ます よ 」 と いう こ 
と を 教え て や ら な いと いけ な い 。 これ を 忘れ る と 。 記録 内 容 が 失 な われ た だ た り , 
シス テム が 動か な く な っ た りす る 。. 

2 ) Level-3 の 場合 。 CLOS8 互 を 忘れ た り 。 実行 し な いう ち に ディ スク を と 
り 出 し た りす る と ,。 ディ スク の 内 容 が 破壊 され る こと が ある 。 CLOS 選 や 
尺 RRMOV 包 は ,。 や りす ぎ て 悪い こと は な い の で ,。 ディス ク を と り 出 す 前 に 必ず 
行なう 習慣 を 付け る 必要 が ある . 
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3. ラン ダム ・ ア クセ ス の 方 法 

ラン ダム ・ ア クセ ス と いう の は , デー ター を 勝手 な 順序 で 読み 書き す 
る こと で ある (これ に 対し 常に 一 定 の 順序 で 読み 書き を する こと を 順次 
アク セス と いう )。 ラン ダム ・ ア クセ ス を 行なう ただ ため に は 。 記憶 場所 に 番 
地 を 付け て お いて , 指定 され た 番地 の デー ター を と り 出 し た り , 指定 さ 
れ た 番地 に 書き 込ん だ り で きる よう に すれ ば よい 。 し か し , ディ スク の 
合 。 数 百 キ ロバ イト の 記憶 場所 の 1 バイ ト ご と に 番地 を 付け る の は 大 
変 だ し 。 1 バイ ト 単 位 で 入出 力 を 行なう の は 待 時 間 の 関係 で 不 経済 な の 
で ,。 も っ と 大 き な 処 理 単位 を 設け て , その 単位 ご と に 番地 を 付け , ま と 
め て 入出 力 を 行なっ て い ぃ いる. この 処理 単位 を , ディ スク の 構造 上 の 用 語 
で は セク ター と 呼び 。 プロ グラ マー の 用 語 で は レコ ー ド (記録 単位 , 詳 
し く は 物理 的 記録 単位 ) と いう . 
レコ ー ド ・ サ イズ 





IMZ-80 32 バ イト 
Level-3 128 バ イト 


PC-8001。 PC-8801。 Micro-8 256 バ イト 


ディ スク の 出力 の 際 に は 常に 

出力 時 個々 の デー ター を レコ ー ド 単位 に まとめ る 

入力 時 レコ ー ド 単位 で 読み 出し た デー ター を 個々 の デー ター 

に 仕分 け す る 

と いう 作業 が 必要 に な る (この た め の 作 業 場所 を バッ ファ ー と いう )。 順 
編成 方 式 の 場合 に は , これ ら の 作業 は すべ て シス テム が や っ て くれ る 。. 
PRTNT# 文 で 出力 され た デー ター は , ひと まず バッ ファ ー に 入り , 1 
レコ ー ド ぶん まとまる と 自動 的 に ディ スク に 転送 され る . 入力 の 場合 も 
同様 に 自動 的 に 処理 され る の で ,。 利用 者 は バッ ファ ー を 意識 する 必要 が 
な い 。 し か し 。 ラン ダム ・ ア クセ ス の 場合 に は , 自動 的 に や っ て くれ な 
い の で 。 利用 者 が 自分 で プロ グラ ム を 書く 必要 が ある 。 


A.3 フロ ッ ピ ー・ デ ィ ス ク 

Microsoft 系 の BASIC で は 。 これ を 次 の よう に 書く . 
1 ) OPEN 文 に こり ファ イル を 開く 

2 ) TELD 文 に より レコ ー ド を フィ ー ル ド に 分 ける 
3 ) 数 値 デ ー タ ー を 文字 列 型 に 変換 する 

4 ) その 結果 を バッファー に 格納 する 沿 カ の 


の 、、 
ゴ 
5 ) PUT 文 に より ディ スク へ の 書き 込み を 行なう 
6 ) GBP 文 に より ディ スク か ら 1 レコ ー ド 読む 
7 ) フィ ー ル ド 別 に 文字 列 デ ー タ ー と し て と り 出 す な スー 
エコ 


8) それ を (必要 な ら ) 数 値 デ ー タ ー に 変換 する 
9 ) OLOS 世 に より ファ イル を 閉じ る 

















文字 列 型 バッ ファ ー に ディ スク に 
に 変換 書き 込む 書き 込む 
MKS 中 
実数 型 - 一 一 一 3 | 文 
LBT 文 | ,、 
MKT RSET 文 | ッ | PUT 文 
昌和 を 間 iiiiih ーー+ ー 
加 数 型 一 デ 2 一 () 
| 
倍 精 度 MKD$B |] イ 
実 数 型 
文字 列 型 
CVS 
実 数 型 < 一 一 一 一 - 文 
列 
了 CV1 ェ 軸 GE 中 文 
キビ 1 (人 ch 
タ \ 用 で きる 
倍 精 度 CVD Il 
実 数 型 
数 値 弄 バッ ファ ー か ディ スク か 


に 変換 ら 読み 出す ら 読み 出す 
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ラン ダム ・ ア クセ ス ・ フ ァイル の オー プン 
MZ-80 で は 次 の よう に 書く 

XXOPEN # 番 号 。!$FD ド ライ ブ プ 番 号 : ファ イル 名 『" 
PC-8001。 PC-8801 で は 次 の よう に 書く . 

OPEN 「! ド ライ プ ゴ 番 号 : ファ イル 名 ! AS # 番 号 
Level-3。 Micro-8 で は 次 の よう に 書く . 

OPEN "RU 。# 番 号 。 リ ドラ イブ 番号 : ファ イル 名 『 
FIELD 文 これ は 次 の 形 で 書く . 

FTEBLD # 場 号 。 バ イト 数 AS フィ ー ル ド 名 * 

必要 な ら ば , この 形 を くり か え し て も よい 
( 例 ) TELID #1。10 AS A$,2 A8 KK$ 


これ は 「 1 番 の ファ イル に 関し て は ,。 レコ ー ド の 最初 の 10 バ イト を A$ 。, それ 
に 続く 2 バイ ト を 到 $ も に する 」 と いう 意味 に な る . 


A 申 KK 中 
ドーーーー ーーーーーー 一 -ー 一 ーーーーーーーーーー 一 1 レコ ー ド - 一 一 ーーーーーーーーーーーーーーーーーーー ーー| 


LSET 文 , RSET 文 これ は , 

TLS 包 T〒 フィ ー ル ド 名 三文 字 列 式 

RSB〒 フィ ー ル ド 名 テ 文 字 列 式 
の 形 で 書き , それ ぞ れ 「 左 づめ に し て 代入 せよ 」「 右 づめ に し て 代入 せよ 」 
と いう 意味 に な る . 左辺 (代入 先 の フィ ー ル ド ) の バイ ト 数 より も 右辺 
(代入 すべ き 文 字 列 ) の バイ ト 数 の 方 が 多い 場合 , は み 出 し た 部 分 は 無 
視 さ れる . 
[注意 ] フィ ー ル ド へ の 代入 は , LSEBT 文 また は RSEB 呈 文 に 限る . 普 
通 の 代入 文 で は 書き 込め な い . 





まま 。 フィー ルド 名 の 付け 方 の 規則 は 文字 列 型 変数 名 と 同じ で ある . 
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関数 MKS$, MKI$, MKD$ TLSEmT 文 や RSEBT 文 で フィ ー ル ド 
に 代入 で きる の は 文字 列 型 の デー ター に 限る 。 数 値 型 の デー ター を 代入 
し た けれ ば , あら か じ め 文 字 列 型 に 変換 し て お く 必 要 が ある . それ に は 
関数 STR$ を 使う の が 一 案 で ある が 。 STR$ で 変換 する と 
2 進 法 一 10 進 法 の 変換 に 時 間 が か か る 
バイ ト 数 が 多く な る (た と えば 整数 型 デ ー タ ー は 2 バイ ト で 表現 
され て いる が ,。 STR$ で 変換 する と 符号 お よび 最大 5 桁 の 数 字 
が 並ぶ か ら 最 悪 の 場合 に は 6 バイ ト に な る ) 
と いう 難点 が ある プリンター など に 出力 する の で あれ ば , この よう に , 
まとも に 変換 する 必要 が ある が ,。 ディ スク に 入れ る の が 目的 な ら ば , 2 
進 二 10 進 変換 な ど は 必要 な く , 2 進 法 の ビッ ト ・ パ ター ン を その まま ( 整 
数 型 な ら ば 2 バイ ト 。 実数 型 な ら ば 4 バイト, 倍 精 度 実数 型 な ら ば 8 バ 
イト の 文字 列 と し て ) 扱っ て くれ れ ば よい . その た め の 形 式 的 な 関数 が 
MKS$ ( 実数 型 変数 名 また は 式 ) 
MKT$( 整数 型 変数 名 また は 式 ) 
MKD$ ( 倍 精度 実数 型 変数 名 また は 式 ) 
で ある . これ ら の 関数 を 用 いる と , ビッ ト ・ パ ター ン は その まま 変え ず 
に ,。 デー ター の 型 を 文字 列 型 に 変更 し て くれ る . 
( 例 ) 


10 1 ムー ニ の ロコ ロ ※ で 6+66 
<0 じじ ま =ME に エ あ ( エ ん ) 
さぶ O_ FRINT じ ま 


と いう プロ グラ ム を 実行 し て みる と よい 。 最初 の 文 を 実行 する と 。 整数 
型 変 数 T% 値 は 16706 と な り ,。 内 部 で は 2 進 法 
O100000101000010 
で 表 き され て いる . 2 番目 の 文 を 実行 する と,。 これ が 2 バイ ト の 文字 列 
O1000001 0O1000010 
文字 A を 表す 文字 B を 表す 
と みな され て 文字 列 型 変数 C$ に 代入 され る . 最後 の 文 で は , それ を 出力 
する か ら , 文字 列 AB が 表示 され る . 
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関数 CVS, CVI, CVD これ ら は 前 記 MKS$ ,MKT$ ,MKD$ の 
逆 関数 で 。 それ ぞ れ 4 バイ ト ,。 2 バイ ト 。 8 バイ ト の 文字 列 型 デー ター- 
の ビッ ト ・ パ ター ン を その まま , 実数 型 。 整数 型 。 倍 精度 実数 型 の デー 
ター と みな し て 扱う 機能 を も つ . 

PUT 文 と GET 文 PUT 文 は バッ ファ ー の 内 容 を ディ スク に 書き 
込む 命令 , GT 文 は ディ スク の 内 容 を バッ ファ ー に 読み 出す 命令 で あ 
る .。 書き 方 は 次 の と お り , 

PUT # 番 号 。 レコ ー ド 番号 
GE 呈 # 番 号 。 レコ ー ド 番号 

関数 LOC お ょ び LOF LOOC は 「 最 も 最近 。 読み 書き し た レコ ー ド 
の 番号 プラ ス 1 」。 LOE は 「 こ れ ま で に 書き 込ん だ レコ ー ド 番号 の 最大 
値 ]」 を 与え る . LOC は レコ ー ド 番号 順に 読み 書き する 場合 に 便利 で , そ 
の 場合 LOC の 値 が 「 次 に 読み 書き すべ き レ コー ド の 番号 」 に な る . LO 
FE は 新しい レコ ー ド 番号 を 割り 当て る 場合 に 便利 で , その 場合 , LO の 
値 プ ラス 1 を 新しい レコ ー ド 番号 に すれ ば よい . 引 数 は ファ イル 番号 (# 
の 次 に 書い て いる 番号 ) で ある 。. 


( 例 ) エ = テ LOO(1) 
ファ イル #1 の 最も 最近 アク セス し た レコ ー ド の 番号 が 1 に 入る 。 
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な 例題 を プロ グラ ム で わか りや すく 解説 する . 
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プロ グラ ム の 組み 方 を 体得 で きる よう 配慮 され だ 斬新 な 演習 書 . 
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科学 の 最前 線 を 紹介 する 月 刊 雑 誌 





MATHEMATICAL 


SCIENCES 


県 時 宮 半 呈 細川 羽 G 臣 章 ・ 凌 阿 和 6 人 S 6 つろ の で 公 答 。 押 供 証 猟 ・H 
多 48 っ 54nQ で | 持て 財 釧 を べ 展 纏 症 針 (中 白 ・ 器 策 ・ つ 肢 巡 ) つや 了 と 全 
公民 る 回 くり 訟 務 め 詳 6 つ る 記 公 で 稚 器 の 生 ツ る 6 和 か" 

< 誤 婦 証 外 > 3 り で 記 回 全会 太 人 必 窒 袋 枯 と レ 家 可 り 。 鶴 器 つり 邊 
レン 編 唐 導 中 握 堅 り 密 生 kt@ 硝 紀 の 昭 玩 電 層 下り 球 と に 年 区 遂 呈 世 
を ・ 避 綴 KG 決 拉 と な 


邊 届 紅 で 天 加 m 
時 中 間 杯 具 違 の ーー 似 て 叶 醒 和 0 で 当 導 で 時 翌 和 
〇 型 手 国 編 
@ 坪 甘 忠 部 で 紅 宮 


⑨ 飛 忠 団 で 写 園 時 で や NKK 
寺 つり 議 拍 吐 り 3 神 観 S 世 地 移 泰三 を セン 葉 瑞 つい SW 本" 
押 冊 篤人 彫り SS や ko 音 翌 し 交 嘱 捉 避 で 朗 思 邊 し も" つる 公 ぴい < 誤 
膨 芝 御 > 革 寂 球 線 寂 卒 環 ・ 社 天 ・ 諾 時 環 ・ 表 密 ・ 陣 絶 人 り ので の" 
で で 色 つ CS る 避 失 じゃ " 
m 中 拓 地 時 GS 屋 合 還 

性 揚 で 好 窟 填 還 首 柳 更 翌 で で し で" 叶 下 坦 濁 り 量 べく 幅 難 ン と る 人 る 
り 叶 軍人 F※ 損 誤 和 W 代 本 本 で つつ 0 本" 3 公 和 り 相 凌 ・ 蛋 軸 天 下記 つま で て 
HAN K 刀 掴 新 堪 情 民 約 殿 に 衝 2 

恨 軌 く 卓 O 針 

革 罰 比 填 昔 玉 KOO 外 ・ 壮 時 四国 く OO 包 

( 雇 務 で 称 ン ” 弟 褒 親 地 到 叶 ) 
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FORTRANIN 77 


大 駒 誠 一 著 1380 円 

主要 目次 簡単 な 計算 整数 の 計算 一 最大 公約 数 
配列 と 繰返し 入出 力 と デバ ッ グ 組込み 関数 

と 文 関数 副 プ ログ ラム 整列 絵 を 描く 文字 

処理 借 精 度 演算 一 ニュ ー ト ン 法 他 論理 式 シ 

ミュ レー ショ ン 付録: 基本 仕様 一 覧 問題 解答 
各 草 末 に 文法 ノー ト と 演習 問題 を 配 す 


FORTRAN 


原 田 賞 一 著 980 円 
主要 目次 電子 計算 機 と アロ グラ ミン グ 整数 の 
計算 選択 と 繰返し 素数 の 計算 と 約 分 実数 の 
計算 数 値 問題 (方程式 の 解法 、 文 関 数 , 面積 の 
計算 ) 表 操 作 (配列 、 表 の 返 次 探索 ) デー タ 
の 並べ か る 文字 処理 処理 の 分 割 関数 (関数 
の 使用 、 関数 プ ログ ラム ) 共通 デー タ 


演習 FORTRANcxo 応 用 


戸川 隼人 閉 1600 円 
主要 目次 FORTRAN 早 わか り (計算 機 、 簡単 な 
読み 書き , 簡単 な 計算 他 ) や さ し い ぃ 応用 問題 ( 統 
計 計算 , 数 値 計算 , 事務 計算 ) 便利 な 機能 を 活 
用 し よう 進ん だ 応用 (グラ フ 表示 , 常 微分 方 程 
式 、 多 倍 長 演算 他 ) 総合 演習 一 BASIC を 作る 
(基本 設計 小道 具 ,、 メイ ンプ ログ ラム ) 











議 8 川 1 の 
LU は 5((UU 上 
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